Var i integer begin for i. Program, z1 var a:[1..1000]of i integer. for do begin. var i,s: integer; begin i:=0; s:=0; while i<3 do i:= i+1; s:= s+i*i; writeln (s); end.. var a: real; i:=integer; a:=-12 ; i:=1; трассировочный таблица.