uses crt;
var z:char;
a,b,c: Integer;
begin
repeat
	clrscr;
	writeln('1.Chcesz dodawac');
	writeln('2.chcesz odejmowac');
	writeln('3.Koniec pracy');
    z:=readkey;
	if (z='1') then begin
		write('Podaj a=');readln(a);
		write('Podaj b=');readln(b);
	    c:=a+b;
	    writeln('Suma wynosi=',c);
	end;
	if (z='2') then begin
		write('Podaj a=');readln(a);
		write('Podaj b=');readln(b);
	    c:=a-b;
	    writeln('Roznica wynosi=',c);
	end;
  if (z<>'3') and (z<>#27) then begin
	writeln('nacisnij dowolny klawisz...');
	z:=readkey
  end;
until (z='3') or (z=#27);	
end.