1) Составить функцию, которая определяет наибольшее из трех чисел и привести…

1 задача.var a,b,c: integer; beginclrscr; readln (a,b,c); if a>=b and a>=c then writeln (a) else if b>=a and b >=c then writeln (b) else writeln (c); end.2-я задача.var a,s,i: integer; beginclrscr; readln (a); s: =0; for i: =1 to a do s: =s+i; writeln (s); end.