7 lines
133 B
ObjectPascal
7 lines
133 B
ObjectPascal
Program pr1;
|
|
var l, n: integer;
|
|
begin
|
|
writeln('Èäèòå íà äëèíó, ñêîëüêî ðàñïèëîâ');
|
|
readln(l,n);
|
|
writeln('Ñðåäÿÿ äëèíà = ', l/n);
|
|
end. |