Написать программу для вычисления цены ткани, количество и стоимость вводятся с клавиатуры pascal

Var
k, c: integer;
begin
write('Введите количество: ');
readln(k);
write('Введите стоимость: ');
readln(c);
writeln('Цена равна ', c/k);
end.