модуль 3 задание 6

program V;
uses crt;
var n: integer;
     P, Code: integer;
     Str: string;
Begin
repeat
    Write ( ʹВведите n:ʹ);
    Readln
    Val (Str, P, Code);
    if Code <>0 then Writeln ( ʹНеправильный ввод! Ошибка в позиции:ʹ, Code);
until Code=0;
n:=P;
Writeln ( ʹВведено:ʹ,n);
Readln;
End.


Программа с названием "В".
использование
раздел описания переменных. Переменная n задана целочисленным типом
Переменные П и код заданы целочисленным типом.
Переменная Стр задана строковым типом.
Начало программы.
Тело цикла
Цикл "до".
Записать (ʹВведено:ʹ,n)
Список ввода
Переводит с действительного типа в строковый.
если код <>0 то вывод  ( ʹНеправильный ввод! Ошибка в позиции:ʹ,код)
логическое выражение код =0
переменная н присваивается к выражению П
Список вывода ( ʹВведено:ʹ,н)
Конец программы.