Работа по программированию: "условный оператор" составить блок-схему и программу к : в компьютере вводят два числа.в случае, если делитель равен 0, вывести сообщение "на ноль делить нельзя! " иначе, найти и вывести частное этих чисел.

Var  a,b:real;
begin
write('Введите а и b: ');
readln(a,b);
if b=0 then
   writeln('На ноль делить нельзя!')
  else writeln('a/b=',a/b);
end.