var a: integer; b: string; s: string; e: integer; begin write('Введите цену '); repeat begin write('-> '); readln(s); val(s, a, e); if e > 0 then begin writeln('Значение не верно'); end; if (a < 0) or (a > 10) then begin writeln('Число меньше одного или больше десяти'); end; end; until (e = 0) and (a >= 0) and (a <= 10); if a = 1 then begin b := 'рубль'; end; if (a = 2) or (a = 3) or (a = 4) then begin b := 'рубля'; end; if (a = 5) or (a = 6) or (a = 7) or (a = 8) or (a = 9) or (a = 10) or (a = 0) then begin b := 'рублей'; end; writeln('Цена: ', a, ' ', b); end.