Преобразовать программу так, чтобы пользователь мог ввести только реальные значения скорости автомобиля. условие: скорость > 20, но при этом < 200 в паскале.

Var v:real;
begin
Write('Введите v, v>20,v<200: ');
Readln(v);
while (v<=20)or(v>=220) do
 begin
 Write('Введите v, v>20,v<200: ');
 Readln(v);
 end;
writeln('v = ',v);
end.

Пример:
Введите v, v>20,v<200: 15
Введите v, v>20,v<200: 550
Введите v, v>20,v<200: 150
v = 150

Program
Uses crt;
Var x;
Begin
Writeln('Введите a, a>20,a<200');
Read(a);
End.