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 <</span>4.5) thenwriteln('Увы, тебе подарят только плеер');
end.