Răspuns:
var
{ TODO: check and accomplish variable declarations }
uitkomst: Single;
keuze: string;
getalB: Longint;
getalA: Longint;
begin
uitkomst := 0;
writeln('Geef Een getal');
readln(getalA);
while (keuze<>'=') do
begin
writeln('+');
writeln('-');
writeln('*');
writeln('/');
writeln('=');
readln(keuze);
writeln('Geef een getal');
readln(getalB);
case (keuze) of
'+':
begin
uitkomst := getalA+getalB;
end;
'-':
begin
uitkomst := getalA-getalB;
end;
'*':
begin
