program procent;
var a, b, s: real;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
s:=b/a*100;
writeln(s,'%');
end.
program procent;
var a, b, s: real;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
s:=b/a*100;
writeln(s,'%');
end.