Пожалуйста сделайте как можно быстрее!! Срочно надо.

1. Разработайте и напишите программу в среде посхаль согласно заданию.

а)Составить программу вычисления х по формуле x=a/b(если a и b равны нулю, выдать сообщение "множество решений", если b=0 выдать сообщение "решений нет")

program pr;

var

a,b:integer;

begin

readln(a,b);

if (a=0) and (b=0) then writeln('множество решений')

else if b=0 then writeln('решений нет')

else writeln('x=',(a/b));

end.