напишите программу :
Два целых числа А и В вводятся с клавиатуры (А>В). Напишите программу, которая будет отнимать от переменнной А число 5 до тех пор пока А не станет меньше В.

Program n_3;
var A, B: real;
begin
read (A,B);
If A>B then begin A-5, while A>B
end.
end.