1. (Không hiểu đề lắm ạ)

2. 

program phuongt;

uses crt;

  var a, b: integer;

        ip, op: text;

begin

         clrscr;

         assign(ip, 'D:\input.txt');

         assign(op, 'D:\output.txt');

         reset(ip);

         rewrite(op);

         readln(ip, a, b);

         writeln(op, 'a = ', a);

         writeln(op, 'b = ', b);

         writeln(op, 'a + b = ', a+b);

         close(ip);

         close(op);

         writeln('Mo file de xem ket qua: ');

         readln

end.

`1)`

Uses crt, math ;
  var a, b, c : longint ;
 // Ct con ten max_int
 function max_int(a,b,c : longint) : longint ;
     begin
    max_int := max((max(a,b)),c)
     end ;
begin
    clrscr;
    read(a,b,c);
    write(max_int(a,b,c));
end .

`2)`

const fi='input.txt' ;
      fo='output.txt';
    var a, b : longint ;
begin
    assign(input, fi) ; reset(input);
    assign(output, fo) ; rewrite(output);
    read(input, a, b); 
    write(output, a+b);
    close(input) ; close(output);
end .