Составить программу нахождения площади квадрата, прямоугольника, круга и треугольника - Turbo Pascal

var
  s : string;
  a, b : integer;
  ss : real;
begin
  write('введите площадь чего считать (например "треугольник": ');
  readln(s);
  if s = 'квадрат' then
  begin
    write('введите строну квадрата: ');
    readln(a);
    ss := a * a;
    writeln('площадь квадрата: ', ss:0:0)
  end
  else
    if s = 'прямоугольник' then
    begin
      write('введите 2 стороны прямоугольника: ');
      readln(a, b);
      ss := a * b;
      writeln('площадь прямоугольника: ', ss:0:0)
    end
    else
    if s = 'круг' then
    begin
      write('введите радиус круга: ');
      readln(a);
      ss := pi * a * a;
      writeln('площадь прямоугольника: ', ss:0:2)
    end
    else
    if s = 'треугольник' then
    begin
      write('введите основание и высоту треугольника: ');
      readln(a, b);
      ss := 0.5 * a * b;
      writeln('площадь треугольника: ', ss:0:2)
    end
    else writeln('неверно введено название фигуры');
  readln
end.