Question

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

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. ​