Cod sursa(job #344261)

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


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.