Завод за 3 месяца производит n автомобилей. В первом месяце-k% автомобилей, во…

program abc; uses crt; var vsego,first,second,a,b: real; beginwriteln ('Всего автомобилей: '); readln (vsego); writeln ('В первый месяц процентов: '); readln (first); writeln ('Во второй месяц процентов: '); readln (second); a: =(vsego*first) /100; b: =(vsego*second) /100; writeln ('В первый месяц автомобилей было: '); writeln (a); writeln ('Во второй месяц автомобилей было: '); writeln (b); end.