Даны два действительных положительных числа х и у. Арифметические действия над числами пронумерованы (1 — сложение, 2 — вычитание, 3 — умножение, 4 — деление). Составить программу, которая по введенному номеру выполняет то или иное действие над числами — Pascal(Паскаль)

program junk;
uses crt;
var a,b:real; i:char;
begin
clrscr;
writeln('Введите два числа'); readln(a,b);
writeln('Выберите действие 1="+"  2="-"  3="*"  4="/"');
readln(i);
case i of
'1':a:=a+b;
'2':a:=a-b;
'3':a:=a*b;
'4':a:=a/b;
end;
writeln('Результат: ',a:0:2);
readln
end.