Решите пожалуйста программу

var a, b, c:real;
begin
writeln('Delimoe');
readln(a);
writeln('Delitel');
readln(b);
if b=0 then writeln('Delitel ne 0') else
 begin
 c:=a/b;
 writeln(c);
 end;
end.