Заповніть таблицю без використання IDLE​

program kvadrat;

var i : integer;

begin

for i: = 10 to 100 do

writeln ( i: 2, i*i : 5);

readln;

end. 

программа №4program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end. №5program p_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе')  end. 

пион-пониадрес-средалапа-апалполучить-поучить карета-ракета

каприз-приказ

калоша-ладошка 

мошкара-рамашка 

если его поставить так, чтоб краев рядом не было, куда-нибудь в центр. тогда он всегда будет вертется