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.
Program Bid;
Uses crt;
var a,b,max:integer;
begin
write(' Введите целое число a=');
readln(a);
write(' Введите целое число b=');
readln(b);
if a>=b then max:=a
else max:=b;
writeln('Max=',max);
end.
Задание 2:Program Text;
var x:integer;
begin
write('Введите цифру 1 или любую :');
readln(x);
if x=1 then write(' В а с я')
else write(' П е т я');
end.
Задание 3:Program Text;
var x:integer;
begin
write('Введите цифру 1, 2 или любую :');
readln(x);
if x=1 then write(' В а с я')
else if x=2 then write(' П е т я')
else write('ERROR');
end.
Задание 4:Program MaxFrom3;
begin
writeln('Введите 3 числа: ');
var (a, b, c) := ReadInteger3;
write('Наибольшее число: ', Max(a,b,c));
end.
Неверные данные, а не может быть равно себе же +1 как и с