Uses crt;
var a,b,i:integer;
znak:char;
procedure ramka;
begin
clrscr;
for i:=1 to 15 do
begin
textcolor(i);
gotoxy(i,1);
write('*');
gotoxy(i,3);
write('*');
gotoxy(1,2);
write('*');
gotoxy(15,2);
write('*');
end;
end;
procedure liczby;
begin
clrscr;
writeln('Podaj pierwsza liczbe');
readln(a);
writeln('Podaj druga liczbe');
readln(b);
end;
procedure dodawanie;
begin
clrscr;
liczby;
ramka;
gotoxy(2,2);
write('Wynik to:');
write(a+b);
end;
procedure odejmowanie;
begin
clrscr;
liczby;
ramka;
gotoxy(2,2);
write('Wynik to:');
write(a-b);
end;
procedure mnozenie;
begin
clrscr;
liczby;
ramka;
gotoxy(2,2);
write('Wynik to:');
write(a*b);
end;
procedure dzielenie;
begin
clrscr;
liczby;
if b=0 then
begin
writeln('Nie dziel przez 0');
writeln('Podaj ponownie druga liczbe');
readln(b);
end
else
clrscr;
ramka;
gotoxy(2,2);
write('Wynik to:');
write(a/b:4:1);
end;
begin
textcolor(white);
clrscr;
writeln('Wybierz:');
writeln('1-dodawanie');
writeln('2-odejmowanie');
writeln('3-mnozenie');
writeln('4-dzielenie');
readln(znak);
znak:=readkey;
if znak='1' then dodawanie;
if znak='2' then odejmowanie;
if znak='3' then mnozenie;
if znak='4' then dzielenie;
readln;
end.