Разветвленный алгоритм, оператор условий. Pascal ABC.

Дана цена за 1кг яблок, узнать цену за x кг яблок, пользователь вводит х, и вводит стоимость 1 кг яблок.

var  

price,num: real;

begin

 write('Введите стоимость за 1 кг яблок: ');

 readln(price);

 write('Введите массу яблок: ');

 readln(num);

 writeln('Цена яблок ',num*price);

end.