Простенький калькулятор через ввод чисел (число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.
Любой знак