var x1, x2, y1, y2: integer;
begin
read(x1, y1, x2, y2);
if (abs(x1 - x2) = 1) and (abs(y1 - y2) = 2) or (abs(x1 - x2) = 2) and (abs(y1 - y2) = 1) then
writeln('Может')
else
writeln('Не может');
end.
Ответ:
var n, R, h, S: integer;
n:=3.14;
readln(R);
readln(h);
S:=2*h*R*h;
writeln(S);