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.