Var k c integer. Var x:integer; y:real;. int var 1;. var a b y integer. var i,a,b: integer; begin max:=0.