в паскале описать задачу 4) Человек делает в магазине покупки. Определите сколько денег у него останется после покупки

var dengi, a, b, c, d, ostatok: real;beginwriteln ( \' Сколько у Вас денег? \' );readln ( dengi );writeln ( \' Введите стоимость перчаток: \' );readln ( а );writeln ( \' Введите стоимость портфеля : \');readln ( b );writeln ( \' Введите стоимость галстука : \' );readln ( d );ostatok: = dengi - a - b - d;if ostatok < 0 thenwriteln ( \' Вам не хватит денег на данную покупку, для совершения этой покупки Вам нужно ещё \', abs( ostatok ), \' рублей \' )elsewriteln ( \' У Вас останется \', ostatok, \' рублей \' );end.