Var skorost,pyt:real;
begin
writeln('Скорость равна = ');
read(skorost);
writeln('Путь равен = ');
read(pyt);
writeln('Время равно = ',pyt/skorost);
end.
Две строки по три ячейки = 6
28,
25,
82,
85,
52,
58,
22,
88,
55,
Program alg;
var a,b:integer;
a:=10;
b:=12;
if a>b then writeln('B наименьшее');
if b>a then witeln('A наименьшее') else writeln('A=B');
end.