pprogram licznik;

uses CRT;

var

a: real;
b: real;
c: real;
d: real;

begin
repeat
textbackground(blue);
textcolor(15);
clrscr;
writeln('witamy w programie licznik');
writeln;
writeln('program ma za zadanie dodawac, odejmowac, mnozyc oraz dzielic');
writeln;
writeln('aby rozpoczac dzialanie programu, wybierz jedna z dostepnych operacji:');
writeln;
writeln('dodawanie - wpisz 1');
writeln('odejmowanie - wpisz 2');
writeln('mnozenie - wpisz 3');
writeln('dzielenie - wpisz 4');
writeln('zamknij program - wpisz 5');
writeln;
readln(c);

if c>5 then
begin
writeln('instrukcja musi byc liczba od 1 do 5');
writeln('nacisnij enter, by zamknac program');
readln;
halt;
end
else

if c<1 then
begin
writeln('instrukcja musi byc liczba od 1 do 5');
writeln('nacisnij enter, by zamknac program');
readln;
halt;
end
else

if c = 5 then
begin
halt;
end;

writeln;
writeln('podaj liczbe nr 1');
readln(a);
writeln;
writeln('podaj liczbe nr 2');
readln(b);
clrscr;

if c = 1 then
begin
writeln('wybrales dodawanie. nacisnij enter, aby zobaczyc wynik');
readln;
clrscr;
writeln('wynik dzialania a+b wynosi' ,a+b:100:5);
writeln;
writeln('wpisz 1 aby wyjsc z programu lub wpisz 2 by wrocic do mneu glownego');
readln(d);
end;

if c = 2 then
begin
writeln('wybrales odejmowanie. nacisnij enter, aby zobaczyc wynik');
readln;
clrscr;
writeln('wynik dzialania a-b wynosi' ,a-b:100:5);
writeln;
writeln('wpisz 1 aby wyjsc z programu lub wpisz 2 by wrocic do mneu glownego');
readln(d);
end;

if c = 3 then
begin
writeln('wybrales mnozenie. nacisnij enter, aby zobaczyc wynik');
readln;
clrscr;
writeln('wynik dzialania a*b wynosi' ,a*b:100:5);
writeln;
writeln('wpisz 1 aby wyjsc z programu lub wpisz 2 by wrocic do mneu glownego');
readln(d);
end;

if c = 4 then
begin
writeln('wybrales dzielenie. nacisnij enter, aby zobaczyc wynik');
readln;
if b = 0 then
writeln('nie dzieli sie przez 0 cholero!!!')
else
writeln('wynik dzialania a/b wynosi' ,a/b:100:5);
writeln;
writeln('wpisz 1 aby wyjsc z programu lub wpisz obojetnie jaka liczbe by wrocic do menu glownego');
readln(d);
end;
until d=1;
clrscr;
end.