Чтобы связать один шарф, требуется 200 г пряжи. Пряжа состоит на 40% из мохера и на 60% из полиакрила. Сколько мохера и полиакрила потребуется, чтобы изготовить В шарфов — Pascal(Паскаль)

uses crt;
const
pr=200;
var
p,m,b: real;
begin
clrscr;
write ('vvedite k-vo warfov: ');
readln (b);
p:=0.6*pr*b;
m:=0.4*pr*b;
writeln ('Moxera: ',m,' gr');
writeln ('Poliakrila: ',p,' gr');
end.