Cod sursa(job #1876177)

Utilizator SISLemLopatenco Sebastian SISLem Data 12 februarie 2017 00:54:55
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.26 kb
Raporteaza aceasta sursa 
Program P1; uses crt;
  var a,b,s:integer;
  fo :text;
begin clrscr;
     writeln('Introdu a');readln(a);
     writeln('Introdu b');readln(b);
     s:=a+b;
     assign(fo,'prob1.out');
     rewrite(fo);
     writeln(fo,'Suma este =',s);
     close(fo);
 end.