Program max, Var a,b,max:integer, Begin Readln(a,b), if a>,b then max:=a else max:=b, Writeln (max), End. Program kosu, Var i,n,S:integer, Begin Readln (n), S:=0,For i:=1 to n do Begin S:=s+I,End, Writeln (S), End. Program Apta, Var n:integer, Begin Readln (n), Case n of 1:write(‘mondey’), 2:write(‘tuersdey’), 3:write(‘yensedey’), 4:write(‘fridey’), 5:write(‘saturdey’), 6:write(‘sandey’), else End.