All pastes #968917 Raw Edit

Someone

public text v1 · immutable
·published 2008-04-03 11:51 UTC
rendered paste body
program Bevardė0;
var c,d,e,i,n:integer;
a,b:array[1..100] of real;
failas,rezultatas:text;
begin
assign(failas,'failas.txt'); reset(failas);
assign(rezultatas,'rezultatas.txt'); rewrite(rezultatas);
n:=1;
for i:=1 to 20 do
begin
read(failas,a[n]);
b[n]:=a[n]/2;
n:=n+1;
end;
write(b[n]);
  Write(rezultatas, b[n]);
  readln;
end.