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

Любой знак

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