Var a1, a2, a3, max: integer;
begin
writeln('a1=');
readln(a1);
writeln('a2=');
readln(a2);
writeln('a3=');
readln(a3);
if a1 > a2 then
max := a1 else
max := a2;
if a3 > max then
max := a3;
writeln ('Максимальное из них: ', max);
readln;
<span>end.</span>
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var a:=ReadReal();
write('Площадь: ',a*a*pi,'; Длина окр: ',2*pi*a);
end.
Может А варианты шгар. или В. точно блмедим.