Напишите программу «калькулятор» на четыре основных арифметических операции

uses crt;
var a,b,c:real;
    d:char;
label m1,m2;
begin
m1:
writeln('Введите 2 числа:');
read(a,b);
m2:
write('Выберите действие + - * /:');
read(d);
if not(d in ['+','-','*','/']) then goto m2;
case d of
'+':writeln(a+b:0:2);
'-':writeln(a-b:0:2);
'*':writeln(a*b:0:2);
'/':if b=0 then writeln('Деление на ноль невозможно')
           else writeln(a/b:0:2);
end;
writeln('Продолжить? Y/y-да другое нет');
read(d);
if d in ['y','Y'] then goto m1;
end.

uses crt;
var a,b,c:real;
    d:char;
begin
repeat
writeln('Введите 2 числа:');
read(a,b);
repeat
write('Выберите действие + - * /:');
read(d);
until d in ['+','-','*','/'];
case d of
'+':writeln(a+b:0:2);
'-':writeln(a-b:0:2);
'*':writeln(a*b:0:2);
'/':if b=0 then writeln('Деление на ноль невозможно')
           else writeln(a/b:0:2);
end;
writeln('Продолжить? Y/y-да другое нет');
read(d);
until not(d in ['y','Y']);
end.