До іть будь ласка, 7 завдання, 6 клас

var a,b: string; begin                            cls;   read(a);     b: =a;           write('b')end.           

одновременно нажать alt и 3 (на цифровой клавиатуре с права)

♥

(1 + 2):   3   = 1

1 * 2 + 3 - 4 =1

((1+2) : 3 + 4) : 5 =1

1 * 2 - 3 : (4 +5- 6) =1

1 * 2 + (3 + 4   +5) - (6 + 7) =1

((1 + 2): 3)* (4 + 5 + 6): ( 7+8) =1

var 

i,n: integer;

begin

readln(n);

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

end.