Найдите ошибку пожалуйста
Program percentage;
uses crt;
var a,b,c,d:real;
begin
writeln('Здравствуйте, вас приветствует программа для нахождения процентов в заданиях ОГЭ.Искомую переменную обозначтье (0).');
write('Введите переменную a-');
read(a);
write('Введите переменную b-');
read(b);
write('Введите переменную c-');
read(c);
write('Введите переменную d-');
read(d);
writeln;
if a=0 then
begin
a:=c*b/d;
writeln(' Ответ:',a);
end;
if b=0 then
begin
b:=a*d/c;
writeln(' Ответ:',b);
end;
if c=0 then;
begin
c:=a*d/b;
writeln(' Ответ:',c);
end;
if d=0 then
begin
d:=c*b/a;
writeln(' Ответ:',d);
end;
writeln('Спасибо за использование программы!!!');
end.