Так?
Program P1;Var a, b : Integer;s : Char;
BeginWrite('Введи 1 число: ');Readln(a);Write('Введи знак(+ или -): ');Readln(s);Write('Введи 2 число: ');Readln(b);
Case s of '-': Write(a, ' - ', b, ' = ', a - b); '+': Write(a, ' + ', b, ' = ', a + b);Else Write('Неверный символ!');End;
Readln;End.
Так?
Program P1;
Var a, b : Integer;
s : Char;
Begin
Write('Введи 1 число: ');
Readln(a);
Write('Введи знак(+ или -): ');
Readln(s);
Write('Введи 2 число: ');
Readln(b);
Case s of
'-': Write(a, ' - ', b, ' = ', a - b);
'+': Write(a, ' + ', b, ' = ', a + b);
Else
Write('Неверный символ!');
End;
Readln;
End.