☺КАРОЧ ТАК! Эт дело должно выполнятся по ПРОГРАММЕ (9 КЛАСС ПРОГРАММИРОВАНИЕ) ДАЮ…

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