Вывести программу по информатике: имеется сумма денег покупаем 3 вещи найти остаток денег после приобретения

такую как:

program ...;

var ...;

begin ...;

и так далее

Program pokypka;

var s, os, v1, v2, v3:integer;

begin

writeln ('Введите имеющуюся сумму') ;

readln (s) ;

writeln ('Введите цену первой вещи') ;

readln (v1) ;

writeln ('Введите цену второй вещи ') ;

readln (v2) ;

writeln ('Введите цену третьей вещи') ;

readln (v3) ;

os:=s-v1-v2-v3;

writeln ('Остаток денег=', os)

end.