Какая ошибка в коде?

Question

[staysvalets]

Пишу программу по определенной задаче,компилятор почему-то выдает такую ошибку:
case14.pas(10) : Встречено ';', а ожидалось ':'
Сам код:

program case14;
var f,a,R1,R2,S:integer;
begin
writeln ('Введите цифру от 1 до 4 включительно!');
Readln(f);
Writeln('Введите значение стороны равностороннего треугольника');
Readln(a);
case f of
  1:R1:=(a*sqrt(3)/4);
  writeln('R1=',' ',R1);
  R2:=R1*2;
  writeln('R2=',' ',R2);
  S:=sqr(a)*sqrt(3)/4);
  writeln('S=',' ',S);
end;
end.

Comments

[staysvalets]

вот сама задача:

[VoidVolker]

staysvalets, https://qna.habr.com/help/rules#3.8

Answer 1

[dim5x]

1. Составные конструкции имеет смысл писать так:

case f of
    1 : begin 
            R1:=(a*sqrt(3)/4);
            writeln('R1=',' ',R1);
            { что-то ещё... }
        end;

2. Есть большие сомнение что в R1 после этого: a*sqrt(3)/4) будет integer. Подумайте над этим.

3.

program case14;
var f : integer;
var a, R1, R2, S: Real; 
begin
    writeln ('Введите цифру от 1 до 4 включительно!');
    Readln(f);
    Writeln('Введите значение стороны равностороннего треугольника');
    Readln(a);
case f of
    1:  
        begin
            R1:=(a*sqrt(3)/4);
            writeln('R1=',' ',R1);
            R2:=R1*2;
            writeln('R2=',' ',R2);
            S:=sqr(a)*sqrt(3)/4;
            writeln('S=',' ',S);
        end;
end;
end.

Comments

[staysvalets]

begin после case необязателен же? Я исправила на ваш вариант и мне все равно выдает ошибку.

[staysvalets]

Насчет типов данных полностью с вами согласна,исправила.

[dim5x]

staysvalets, на сколько я помню - нужны.
У вас ещё здесь: S:=sqr(a)*sqrt(3)/4 => ) <=; лишняя скобка (ну или спереди добавьте).

З.Ы. Обновил ответ - добавил код полностью.

Answer 2

[Hemul GM]

Криво написан case