Дана пословица: Тише едешь — дальше будешь.

К ней построена блок схема

есть три цифры 1,2,3 которые могут стоять на 4-х местах

например 1111 каждую цифру можно использовать повторно

значит всего получится 3*3*3*3=81 число

for a : = 1 to 20 do

begin

    writeln(a,"^2 = ", a*a);

end

или

a: = 1;

repeat

    writeln(a,"^2 = ", a*a);

    a : = a + 1;

until a > 20;

program w7w7;

var a: real;

begin

readln (a);

if a< 0 then writeln ('otritsatelnoe chislo');

if a> 0 then  writeln ('pologitelnoe chislo');

end.