Язык Pascal. Программирование для начинающих

const
    pi = 3.14;
 
var
    figure: byte;
    area, s, a, b, c, d: real;
    ok: boolean;
 
begin
   ok := true;
   write('Фигура (1 - прямоугольник, 2 - треугольник',
   ', 3 - круг): ');
   readln(figure);
 
   if figure = 1 then begin
      write('Длины сторон: ');
      readln(a, b);
      area := a * b
   end
   else
      if figure = 2 then begin
         write('Длины сторон: ');
         readln(a, b, c);
         s := 0.5 * (a + b + c);
         area := sqrt(s * (s - a) * (s - b) * (s - c))
      end
      else
         if figure = 3 then begin
            write('Диаметр: ');
            readln(d);
            area := pi * sqr(d) / 4
         end
         else
            ok := false;
 
   if ok then
      writeln('Площадь: ', area:8:2)
   else
      writeln('Ошибка ввода');
 
readln
end.