program arytm01;
{$MODE DELPHI}
//uses Windows;
{ Jakub Szyndlar II MDT Program oblicza sume, różnice, iloraz i iloczyn dwóch liczb rzeczywistych }
var
a,b,suma,iloczyn,roznica,iloraz :real;
plik1,plik2 :text;

begin
{===Używane Pliki Wejścia i wyjścia===}
assign(plik1,'D:\Dydaktyka\Student\MDT_Dzienne\s03MetNum\JakubSzyndlar\zadanie02\da_arytm1.txt'); reset(plik1);
assign(plik2,'D:\Dydaktyka\Student\MDT_Dzienne\s03MetNum\JakubSzyndlar\zadanie02\wy_arytm1.txt'); rewrite(plik2);
{===Obliczenia===}
read(plik1,a,b);
suma:=a+b;
iloczyn:=a*b;
roznica:=a-b;
if b<>0 then iloraz:=a/b;
{===Wydruk danych===}
writeln(plik2,'Program arytm01');
writeln(plik2,'================');
writeln(plik2);
writeln(plik2,'liczba a= ',a:10:4);
writeln(plik2,'liczba b= ',b:10:4);
writeln(plik2);
writeln(plik2,'suma a+b= ',suma:10:4);
writeln(plik2);
writeln(plik2,'iloczyn a*b= ',iloczyn:10:4);
writeln(plik2);
writeln(plik2,'roznica a-b= ',roznica:10:4);
writeln(plik2);
write(plik2,'iloraz a/b= ');
if b=0 then writeln(plik2,' Brak wyniku') else writeln(plik2,iloraz:10:4);
writeln(plik2);
writeln(plik2,' a b suma iloraz iloczyn');
write(plik2,' ',a:10:4,' ',b:10:4,' ',suma:10:4,' ');
if b=0 then write(plik2,'Brak wyniku') else write(plik2,iloraz:10:4);
writeln(plik2,' ',iloczyn:10:4);
{===Zamknięcie plików===}
close(plik1);
close(plik2);
end.