Вывести программу по информатике: имеется сумма денег покупаем 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.