Program qq;
Var a, b, c:real;
Begin
Writeln(введите два числа);
Readln(a,b);
If b=0 then begin writeln(делитель не должен равняться нулю, введите числа повторно)
readln(a, b);
End
If else begin c:=a/b;
End
Writeln(получившееся число, c)
End.
Может где-нибудь есть косячок, но в основном, все должно получиться, удачи:)
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.