Составить программу на языке паскаль для вычисления Х процентов от числа С.

var
x, c:integer;
a:real;
begin
write('Введите число: ');
readln(c);
write('Введите количество процентов: ');
read(x);
writeln('%');
a:=c/100*x;
writeln('Ответ: ',x,'% от числа ',с,' равно ',a);
end.