Выполнить заданную арифметическую операцию с 2-мя числами

program z2;
uses crt;
var op:char;
a,b,s:real;
begin
write(введи числа ); readln(a,b);
nbsp;write(введи знак операции ); readln(op);
nbsp;case op of
nbsp;+: s:=a+b;
nbsp;-: s:=a-b;
nbsp;*: s:=a*b;
nbsp;/: s:=a/b;
nbsp;end;
nbsp;nbsp;write(a, op, b,=,s);
nbsp;nbsp;end