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

Var v:real;

begin

Write ('Введите v, v>20, v<200: ') ;

Readln (v) ;

while (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.