Помогите разобраться!

[SerSasha]

Написал вот такое чудо программной мысли:D
И паскаль показывает ошибку! Незнаю что делать! Сильно не судите Я не волшебник, а только учусь!

Program XZ;
Var L, r:real;
Begin
Writeln('Vvedite radius kruga');
Write('r=');
readln(r);
L:=2*r*3.14;
begin
end;
Writeln('Dlina kruga=',L);
End.

From Stilet: Не забываем о теге оформления кода если хочешь путевой и быстрой помощи.

[Stilet]

Ну ошибка наверное невидимыми буквами пишется?
после L:=2*r*3.14; убери begin; end

[SerSasha]

Просто при вычислении выдает такой результат:
R=5
Ответ=3.1400000000Е+01
Как сделать чтобы подсчет был нормальным!?

[master_root]

3.1400000000Е+01 - это обычный формат вещественного числа без объявленных границ. Используй вывод в таком формате:

writeln('Dlina kruga=',L:6:2);

- это значит отображать 6 чисел перед запятой и две после(результат будет выглядеть как 31,4 или 31,40)
а 3.1400000000Е+01 значит 3,14 умноженное на десять в степене +1

[Карась]

Writeln('Dlina kruga=',L:4:4);

Где цифры обозначаёт кол-во знаков для округления.