Question

помогите решить пожалуйста
срочно

Answer 1

1.
var
r,s:real;
begin
readln(r);
s:=pi*r*r;
writeln(s);
end.
2.
var
n:integer;
begin
readln(n);
n:=n mod 10*1000+ ((n mod 100) div 10)*100+((n div 100) mod 10)*10+n div 1000;
writeln(n);
end.
3.
var
name:string;
s:real;
a,b,c:integer;
begin
writeln('Привет. Я-комп! Как тебя зовут?');
readln(name);
writeln(name, ' введи 3 оценки по алгебре');
readln(a,b,c);
s:=(a+b+c)/3;
writeln(name, ' Твой средний балл= ',s);
end.