Хелп!!! 20 баллов!!!
4 строчка: отсутствует ";"
4 строчка: write вместо writeln, чтобы не было переноса строки (так как считывание данных должно быть в виде:
write();
readln(a);
10 строчка: отсутствует ";"