Zadanie03
program tab01;
{$MODE DELPHI}
//uses Windows;
{Imie Nazwisko II MDT Program oblicza sume, różnice, iloraz i iloczyn par liczb rzeczywistych}
var
a,b,suma,roznica,iloraz,iloczyn :real;
i,n :integer;
plik1,plik2 :text;
begin
{Uzywane pliki wejscia i wyjscia}
assign(plik1,'D:\Zadanie03\da_tab01.txt'); reset(plik1);
assign(plik2,'D:\Zadanie03\wy_tab01.txt'); rewrite(plik2);

{Opis tabelki}
writeln(plik2,' a b suma roznica iloraz iloczyn ');
writeln(plik2,'==============================================');
{Obliczenia}
read(plik1,n);
for i:=1 to n do
begin
read(plik1,a,b);
suma:=a+b;
roznica:=a-b;
if b<>0 then iloraz:=a/b else iloraz:=0;
iloczyn:=a*b;
{Wydruk danych}
write(plik2,'',a:10:4,'',b:10:4,'',suma:10:4,'',roznica:10:4);
if iloraz=0 then write(plik2,' brak ') else write(plik2,'',iloraz:10:4); write(plik2,'',iloczyn:10:4);
writeln(plik2);
end;
{Zamkniecie programu}
close(plik1);
close(plik2);
end.