Ребята, помогите пожалуйста!!!
У вас было а рублей, вы купили 10 тетрадей по в рублей, 1 дневник по с рублей и 3 ручкм по п рублей. Составить программу , выводящую количество вашей сдачи.,

1
программу надо написать в free pascal

Ответы и объяснения

2013-09-15T14:14:50+04:00
Var
a,b,c,p,s:integer;
begin
write('Введите A: ');
readln(a);
write('Введите B: ');
readln(b);
write('Введите С: ');
readln(c);
write('Введите P: ');
readln(p);
s:=a-10*b-c-3*p;
if s>=0 then writeln('Ваша сдача составит: ',s,' руб.')
       else writeln('Need more money');
end.