В MS Excel диапазон ячеек А, В, С, D, Е, в строке 7 можно обозначить:

канал - 5букв

телевизор,компьютер 9букв

крик - 4буквы

a в квадрате плюс b в квадрате:

  sqr(a) + sqr(b);

я бы сделал

program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end. 

var 

i,n: integer;

begin

readln(n);

for i: =1 to n-1 do write(i*i: 5);

end.