Cod sursa(job #344263)

Utilizator andrey932Andrei andrey932 Data 29 august 2009 14:40:25
Problema Operatii Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.29 kb
Raporteaza aceasta sursa 
var t:text;
    n,xi,x,i:longint;
    s:int64;


begin
assign(t,'operatii.in'); reset(t);
readln(t,n);
s:=0;
for i:=1 to n do
  begin
    xi:=x;
    read(t,x);
    if x>xi then
      s:=s+x-xi;
  end;
close(t);
assign(t,'operatii.out'); rewrite(t); write(t,s); close(t);
end.