1) {найти квадрат числа}

var k:real;

begin read(k);

k:=k*k; write(k);end.

2) {задача с оценками}

var i:integer;

a,b,c,d,e: 2..5;

sred:real;

begin write ('Введите оценки, после каждой Enter');

read(a); read(b); read(c); read(d); read(e);

sred:=(a+b+c+d+e)/5;

if sred >= 4.5 then writeln('Тебе подарят плеер и роликовые коньки!')

else if (sred >=3.5) and (sred <4.5) thenwriteln('Увы, тебе подарят только плеер');

end.