Точка 100 200
начертите в право 4 клетки
начетите низ лево 1 клетку
начертите в лево 2 клетки
начертите вверх лево 1 клетку
дальше не знаю
Программа на паскале:
program square;
var a,s:integer;
begin
write('a = ');
readln(a);
s:=a*a;
writeln('s = ',s);
end.
Пример:
a = 5
s = 25
БЛОК-СХЕМА ВО ВЛОЖЕНИИ
var
a,b,c,min:real;
begin
readln(a,b,c);
if (a*b*c)<(a+b+c)then
min:=a*b*c
else
min:=a+b+c;
writeln(min);
end.
Как-то так, если не так то извини