ПОМОГИТЕ! ТОЛЬКО НУЖНО РЕШИТЬ НЕ ЧЕРЕЗ if, A ЧЕРЕЗ CASE1. Пользователь вводит неотрицательное однозначное число A. Написать программу:
вычисляющую в случае ввода 1 - площадь круга с радиусом A,
вычисляющую в случае ввода 2 - площадь квадрата со стороной A,
вычисляющую в случае ввода 3 - площадь равностороннего треугольника со стороной A,выдающую сообщение «нужно ввести число 1, 2, 3» в остальных случаях.

var a:integer;s:real;beginreadln(a);case a of1: 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.