училка завалила когда я сдавал зачёт
ну не виноват я что забыл пару операторов
но моя прога всё равно делала что надо
program s1;
uses crt;
var
t:text;
i:integer;
b,a:array[1..10] of real;
s:real;
begin
clrscr;
assign(t,'t.txt'); rewrite(t);
for i:=1 to 10 do begin
read(a[i]);
writeln(t,a[i]:2:2);
end; close(t);
assign(t,'t.txt'); reset(t);
for I:=1 to 10 do
readln(t,b[i]);
close(t);
s:=b[1]-b[10];
writeln(s:2:2);
end.