Нужна программа для одного рисунка​с модуля граф абс

program kvadrat;

var i : integer;

begin

for i: = 10 to 100 do

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

readln;

end. 

1)деловая бумага; 2)подтверждает факт или право

вместо х ставишь 2,значит у=2-1,у=1,х=у-2,2=4-2,у=х-у,у=2-у,тут у-любое,кроме 2 и более

2 var  3 s: string;   4 begin  5  readln(s); 6  while  pos('с',s)> 0  do  delete(s,pos('с',s),1); 7writeln(s);   8 end.это точно