Встречено 'Writeln', а ожидалось ';' - Pascal ABC

Формулировка задачи:

Program Primer2;
Uses CRT;
var a,d,x:Real;
begin
Clrscr;
Writeln('Введите a:');
Readln(a);
Writeln('Введите d:');
Readln(d);
if a>b then
x:=a*b+1
else
if a=b then
x:=25
else
if athen
x:=(a-5)/b
Writeln('x');
readln;
end.

Встречено 'Writeln', а ожидалось ';' Нужен вот такой вариант Х={a*b+1 если a>b, 25 ecли a=b, (a-5)/b если a

Решение задачи: «Встречено 'Writeln', а ожидалось ';'»

Листинг программы

x:=(a-5)/b;//поставьте точку с запятой
Writeln('x');

Объяснение кода листинга программы

Встречено 'Writeln', а ожидалось ';'
Объявлена переменная x и вычислено ее значение в строке с формулой x:=(a-5)/b;
Значение переменной x выводится на экран с помощью команды Writeln('x')