алг нахождПроцент
Нач
Ввод a и b
S=b/a*100
вывод S
кон алг

program procent;

var a, b, s: real;

begin

   writeln('Введите a');

   readln(a);

   writeln('Введите b');

   readln(b);

   s:=b/a*100;

   writeln(s,'%');

end.