Восстановите текст программы ( вставте пропущенные обозначения _____)

var

I:integer;

x:integer;

y,q:integer;

a:string;

begin

i:=o;[обнуление переменных]

x:=0______[ обнуление переменных]

y:=0;[обнуление переменных]

writeln ("Как вас зовут?Введите ваше имя русскими буквами-') ;[вывод заданного текста на экран]

readin (a);[ввод переменной, в которой храниться имя]

writeln ('Введите количество расчетных циклов-?); [ вывод заданного текста на экран]

readin (i); [ввод переменной, указывающей количество повторений]

for vas z:= 1 to I do

begin________

writeln ( 'введите х- '); [вывод заданного текста на экран]

readin_____; [ввод переменной]

writeln ('введите у-'); [ вывод заданного текста на экран]

_____(у); [ввод переменной]

q:=q+x+y; [вычисление суммы]

end;

_____('Уважаемый', а, 'Сумма всех введённый чисел=',q,) ;

end. ​

Условие:   написать программу, которая проверяет, является ли четным введенное пользователем целое трехзначное число. путь решения: сохраняем в переменную введенное пользователем число, например в a  получаем остаток деления на 2 и сравнимаем с 0. если равен, то число - четное  иначе  не четное. p.s. так как число a используется в программе меньше или равно 1 раз, то это число можно не сохранять, а сразу работать с ним, в месте вызова функции. используемые языки: pacal, python, javascript язык: pascal //fpc 3.0.0 var     a: integer; begin     read(a);     if (a mod 2 = 0) then write('введенное число четное')     else write('введенное число нечетное'); end. или //pascalabc.net (версия 3.2, сборка 1363) begin   print(readinteger() mod 2 = 0 ? 'введенное число четное' : 'введенное число нечетное') end. язык: python print('введенное число ' + ('нечетное', 'четное')[int( % 2 == 0]) язык: javascript alert('введенное число ' + (number( % 2 === 0 ? 'четное': 'нечетное'));