Задача 1:
var Sasha,Kolya: integer;
begin
writeln('Возраст Саши:');
readln(Sasha);
writeln('Возраст Коли:');
readln(Kolya);
if (Sasha=Kolya) then writeln('Саша и Коля ровесники')
else writeln('Саша и Коля не ровесники');
end.
Задача 2:
var V1,V2: integer;
begin
writeln('скорость первого автомобиля:');
readln(V1);
writeln('скорость второго автомобиля:');
readln(V2);
if (V1>V2) then
writeln('первый автомобиль преодолеет ',
'расстояние быстрее')
else writeln('второй автомобиль преодолеет ',
'расстояние быстрее');
end.
Задача 3:
var a,b: integer;
begin
writeln('первое число:');
readln(a);
writeln('второе число:');
readln(b);
if (a-b<10) then </em>
writeln('разность чисел меньше 10')
else writeln('разность чисел не меньше 10');
end.