Пример программы с input и output

Нахождение суммы двух чисел

var
    a,b,c:integer;
begin
    assign(input,'input.txt');
    reset(input);
    assign(output,'output.txt');
    rewrite(output);
    readln(a, b);
    c:=a+b;
    writeln(c);
end.