25 баллов; найдите ошибку в программке:

1. Убрать ; после program
2. war поменять на var
3. Не необходимы строчки writeln('Введите число d'); readln(d); - это не ошибка, а просто мусор
4. Заместо p= обязано быть p:=
5. Заместо z=sqrt a*b-5.1; обязано быть z:=sqrt(a*b-5.1);
6. Вместо R= обязано быть R:=
7. Вместо writeln('вывести число'); обязан быть организован вывод R, к примеру, writeln('R=',R);
8. Заместо readlns; должно быть readln, точка с запятой перед end необязательна.

Перед program убери двоеточие
war поменяй на var
readlns убери s на конце