1)uses crt;varb,x,s:integer;beginwrite ('Введите скорость аэроплана-');read (b);write ('Введите кол-во часов-');read (x);s:=x*b;write ('Расстояние, которое прошел аэроплан-', s);end.2)uses crt;varx:integer;beginwrite ('Введите номер года-');read (x);if (x mod 4=0) then write ('Этот год является високосным ')elsewriteln ('Этот год не является високосным ');end.