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

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