Позарез надо 15 : тема - блок схемы: y=x\b нужно найти решение

Program xz;
var y,x,b: real;
begin
  witeln('введите два числа');
  readln(x,y);
  y:=x/b;
  writeln('ответ ',y);
end.