Pascal Нахождения процента от числа

[#Gromov]

Нахождения процента от числа на Паскаль ABC​

var k,n:integer; //Описание переменных
    x:real;
Function procent(n,m:integer):real;  //Функция вычисления процентов, т.к. проценты могут быть дробными - задаем тип real
   begin
    procent:=m*100/n;    //Вычисляем проценты, значение присваиваем функции
   end;
Begin
  writeln('Введите число');
   readln(k,n); //Считывание переменных
     x:=procent(k,n); //Запрашиваем значение процента у функции
   writeln('x=',x, '%'); //Выводим результат
End.

Автор: Zed