Adição em Pascal

program soma;

var
   n,i,soma:integer;

begin
   writeln(5);
   readln(n);
   soma:= 5;
   for i:=1 to n do
       soma:=soma+1;
   writeln(‘5 ’,n,’ '3' '2' ‘,soma);
   readln;
end.