preceptor Program Task;
Var A, B, C, D, E: Integer;
Begin
WriteLn('Сколько рублей было у человека?');
ReadLn(C);
WriteLn('Сколько стоили перчатки?');
ReadLn(A);
WriteLn('Сколько стоил портфель?');
ReadLn(B);
WriteLn('Сколько стоил галстук?');
ReadLn(D);
E := C - (A + B + D);
If E > 0 Then
WriteLn('У человека осталось', E, ' рублей')
Else If E = 0 Then
WriteLn('У человека не осталось денег')
Else
WriteLn('У человека не хватило денег');
ReadLn;
End.

SkyBy Var a,b,c,d,e,f: Integer;
Begin
Write('Введите начальную сумму денег: '); Read(c);
Write('Введите стоимость перчаток: '); Read(a);
Write('Введите стоимость портфеля: '); Read(b);
Write('Введите стоимость галстука: '); Read(d);
e := a + b + d;
f := c - e;
Writeln('Вы потратили: ', e, ' рублей');
Writeln('У Вас осталось: ', f, ' рублей');
End.