Вычисление площадей. Оператор Case of. Программа на Pascal.

[Honey bee]

Составить программу вычисления площадей различных геометрических фигур.

$$ S=\begin{cases} pl,&\text{если $k=1$;}\\ pl/2,&\text{если $k=2$;}\\ 2\pi Rh,&\text{если $k=3$;}\\ \pi Rl,&\text{если $k=4$;}\\ 4\pi R^2,&\text{если $k=5$;}\\ \end{cases} $$

Используется синтаксис Pascal

program lab3;

uses crt;

var k:integer;
      s,p,l,r,h:real;
begin
     clrscr;
     write('Введите k=');
     readln(k);
     case k of
          1:begin
                   writeln('Введите ширину р и длинну l');
                   readln(p);
                   read(l);
                   s:=p*l;
                   write('S=',s);
                   readkey;
             end;
          2:begin
                   writeln('Введите ширину р и длинну l');
                   readln(p);
                   read(l);
                   s:=(p*l')/2;
                   write('S=',s);
                   readkey;
             end;
          3:begin
                   writeln('Введите радиус R  и высоту h');
                   readln(r);
                   read(h);
                   s:=2*pi*r*h;
                   write('S=',s);
                   readkey;
             end; 
          4:begin
                   writeln('Введите радиус R  и длинну l');
                   readln(r);
                   read(l);
                   s:=pi*r*l;
                   write('S=',s);
                   readkey;
             end;
          5:begin
                   writeln('Введите радиус R');
                   readln(r);
                   s:=4*pi*sqr(r);
                   write('S=',s);
                   readkey;
             end;
    end;
end.

Принимаются любые поправки и конструктивная критика.

[Maslov]

Honey bee в сообщении #489887 писал(а):

Используется синтаксис Pascal

     ...
     case k of
          1:begin
                   writeln('Введите ширину р и длинну l');
    ...

Принимаются любые поправки и конструктивная критика.

Существительное "длина" пишется с одной "н".

[ewert]

Honey bee в сообщении #489887 писал(а):

конструктивная критика

А Вас не смущает, что Ваш текст, начиная где-то с середины, вдруг резко покраснел?

(вероятно, со стыда)

[milsy]

Ищите у себя в коде лишний апостроф.

[Nikita_b]

Кроме апострофа я бы на Вашем месте еще вынес из case повторяющиеся операторы.