var tl, tp, l, p: real;
el, n: integer;
begin
print('Время, за которое лифт передвигается на 1 этаж');
readln(l);
print('Этаж, на котором находится лифт');
readln(el);
print('Время, за которое Катя поднимается на 1 этаж');
readln(p);
print('Нужный этаж');
readln(n);
tp := (n - 1) * p;
tl := (el + n - 2) * l;
println('Время на лифте:', tl);
println('Время по лестнице:', tp);
if tp > tl then
println('На лифте быстрее')
else
if tp < tl then
println('По лестнице быстрее')
else
println('Нет разницы');
end.
var
i,j,k:integer;
A:array[1..n] of integer;
B,C:array[1..m] of integer;
begin
writeln('Введите элкменты массива');
for i:=1 to n do readln(a[i]);
j:=0; k:=0;
for i:=1 to n do
if i mod 2=1 then begin j:=j+1; B[j]:=A[i] end
else begin k:=k+1; C[k]:=A[i] end;
writeln('Массив А');
for i:=1 to n do write(A[i],' ');
writeln;
writeln('Массив B');
for i:=1 to j do write(B[i],' ');
writeln;
writeln('Массив C');
for i:=1 to k do write(C[i],' ');
writeln
end.