Написать программу-калькулятор,. в программе паскаль . срочно

varp:char;s,a,b:real;beginwriteln('Введите первое число');readln(a);writeln('Введите второе число');readln(b);writeln('Введите знак действия (+ - * /)');readln(p); case p of'+': s:=a+b;'*': s:=a*b;'/': s:=a/b;'-': s:=a-b; end;writeln(s);end.