Something

program Noname1;
uses crt;
var b : char;
var a,c,suma : integer;

begin
  WriteLn('skaicius');
  Read(a);
  WriteLn('zenklas');
  Read(b);
  ReadLn(b);
  WriteLn('skaicius');
  Read(c);
  if (b = '-') then suma := (a - c);
  WriteLn(suma);
  ReadKey;
  Readln;
end.