Помогите составить блок-схему к этой программе

sema07 в категроии Информатика, вопрос открыт 17.06.2018 в 13:12

var x: integer;
begin
readln(x);
x := x mod 10;
x := sqr(x);
x := x mod 10;
writeln(x);
end.