Помогите написать программу.

[qveyk]

В магазине продается ткань для костюма. Ее цена в гривнах за метр. На костюм необходимо 3 м ткани. У Натальи есть х грн. Составьте программу, которая определит, хватит ли денег у Натальи для покупки ткани.

[IonGig]

Твоя задача математически не решаема, ибо неизвестна цена ткани за метр, допустим, эту сумму мы вводим с клавиатуры, тогда

var x,c,cd: integer;
Begin
write('Enter money: ');
readln(x);
write('Enter cost of silk: ');
readln(c);
cd:=c*3;
if cd <= x then
writeln('Hvatit, ostanetsa ',x-cd,' griven')
else
writeln('Deneg ne hvatit');
End.

[Stilet]

хватит ли денег у Натальи для покупки ткани.

qveyk, ты на бумажке эту задачу решить сможешь?