Только нужно решить не через if, a через case1. пользователь вводит неотрицательное однозначное число a. написать программу: вычисляющую в случае ввода 1 - площадь круга с радиусом a, вычисляющую в случае ввода 2 - площадь квадрата со стороной a, вычисляющую в случае ввода 3 - площадь равностороннего треугольника со стороной a, сообщение «нужно ввести число 1, 2, 3» в остальных случаях.
s:real;
begin
readln(a);
case a of
1: begin s:=pi*a*a; writeln(s); end;
2: begin s:=a*a; writeln(s); end;
3: begin s:=a*a*sqrt(3)/4; writeln(s); end;
else writeln('нужно ввести число 1, 2, 3');
end;
end.