Простенький калькулятор через ввод чисел (число1 энтер число2 энтер, затем знак мат. операции)

program calc;
var m,k,s:integer;
begin
writeln ('Введите число m:');
Readln (m);
writeln ('Введите число k:');
Readln (k);
s:=m+k;
writeln ('s=',s);
end.