Написать программу в паскале

var
s: string;
a,b,c:real;
begin
WriteLn('Вычисление стоимости покупки. ');
WriteLn('Введите исходные данные: ');
WriteLn('Какой товар вы покупаете? ');
ReadLn(s);
WriteLn('По какой цене? ');
ReadLn(a);
WriteLn('Сколько штук? ');
ReadLn(b);
WriteLn('Ваш товар - ', s, '. Стоимость покупки: ', a * b : 2);
WriteLn('Сколько денег даете? ');
ReadLn(c);
WriteLn('Ваша сдача: ', c - a * b);
end.