надо составить программу в паскале, в которой надо найти процент от заданного числа

Var

q: Single; / / Результат. Если число будет больше, то указать Double

i: Single; / / Число из которого необходимо получить результат. Если число будет больше, то указать Double

p: Single; / / Процент. Если процент будет всегда целым числом, то указать Byte

begin

writeln ('Введите число = > ') ;

read (i) ;

writeln ('Введите процент, который хотите расcчитать из введенного числа = > ') ;

read (p) ;

while p < 0 do

begin

writeln ('Процент не может быть меньше нуля, введите новое значение = > ') ;

read (p) ;

end;

q: = (i / 100) * p;

writeln ('Ваш результат из числа = > ', i, ', ', p, '% = ', q) ;

end.