Pascal срочно!! напишите программу вторую

Question

Pascal срочно!! напишите программу вторую

---

Answer 1

Var a,b:real; 
begin 
writeln('Введите число для угадывания'); 
read(a); 
writeln('Введите число'); 
repeat 
read(b); 
if b>a then writeln('Меньше'); 
if b
until b=a; 
writeln('Вы угадали'); 
end.