Program qq;Var a:integer;x,b,c,y:real;begina:=7;b:=3.2;c:=a+b;x:=c/2;y:=a-c;Writeln('x:=', x);Writeln('y=', y);Writeln('c=', c);end.
На экран выведется сумма переменных "a" и "b", выведется результат деления переменной "c" на 2, выведется разность переменных "a" и "c".