Question

Исправьте

Program infinity;
Const pi=3.14;
Begin
Var;L,S,R:real;
Writeln('Введи радиус');
readln(R);
L:=2*pi*R;
S:=pi*R*R;
Writeln('Площадь круга:',S 'длина окружности = ',L);
End


паскаль абс Ошибка ожидался интефикатор но вар обнаружен

Answer 1

Поставил точку в конце, добавил пару запятых и убрал ";" после var и у меня всё заработало

Program n_5;
Const pi=3.14;
Begin
Var
    L,S,R:real;
Writeln('Введи радиус');
readln(R);
L:=2*pi*R;
S:=pi*R*R;
Writeln('Площадь круга: ', S, 'длина окружности = ',L);
End.