Решите задачку через For,While,Until. Произведение возведения в квадрат от 0 до 50

vari,p:integer;beginfor i:=1 to 50 dobeginp:=i*i;writeln(i,' в квадрате: ',p);end;end.vari,p:integer;begini:=1;repeat p:=i*i;writeln(i,' в квадрате: ',p);i:=i+1;until i>50;end.vari,p:integer;begini:=1;while i<=50 dobeginp:=i*i;writeln(i,' в квадрате: ',p);i:=i+1;end;end.