Увы, не помню как решаются такие задачи…

1. uses crt; var a,b,c: integer; beginclrscr; readln (a,b,c); write (a+b+c); readln; end.2. uses crt; vat y,a,b: integer; beginclrscr; y: =(a+b) /2; writeln (y); readln; end.