Begin
repeat
// ... tutaj wczytywanie liczb ...
case key of
1: writeln('Wynik to: ', liczba1 + liczba2);

2: writeln('Wynik to: ', liczba1 - liczba2);
3: writeln('Wynik to: ', liczba1 * liczba2);
4: begin
if liczba2 <> 0 then
writeln('Wynik to: ', liczba1 / liczba2:0:2) // Dzielenie z przecinkiem
else
writeln('Błąd! Nie dziel przez zero!');
end;
5: writeln('Do widzenia!');
else
writeln('Nieznana opcja, spróbuj ponownie.');
end;
until key = 5; // Teraz spójne z menu!
end.