Простой калькулятор на паскале плз

Перепиши нормально в любом случае плиз

я помого как мог

можешь удалить ответ , не мой дела

я помог тебе , как смог!

Ну ладно

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19  uses crt;         var r,t:integer;       w:char;  s:real;    begin  clrscr;    writeln('vvedite operatsiyu');     readln(w); write('vvedite chisla  r,t');    readln(r,t);   case w  of     '+':s:=r+t;    '-':s:=r+t;    '/':s:=r/t;   '*':s:=r*t;    end;      writeln('otvet',s:3:2);  readln; end.может так?