задачи на ветвление

Ответ от Исачков Александр[активный]
Задача №1.
var a,b:integer;
begin
writeln('Введите a и b:');
write('a=');
readln(a);
write('b=');
readln(b);
if (a<0) and (b<0) then writeln('YES')
else writeln('NO');
end.
Задача №2 (Насчет того что программа написана правильно сомневаюсь)
Var a,b,c:real;
begin
writeln('Введите A, В и С: ');
write('A=');
readln(a);
write('B=');
readln(b);
write('C=');
readln(c);
if (b-a)<(c-a) then writeln('До остановки В')
else if(b-a)>(c-a) then writeln('До остановки С')
else writeln('Расстояние до остановок одинаковое');
end.
Задача №3
Var c,x,a,b,d:real;
begin
writeln('Введите c и x:');
write('c=');
readln(c);
write('x=');
readln(x);
a:=5/430;
b:=c/x;
d:=a-b;
if d<0 then writeln('Не хватит')
else writeln('Хватит');
end.
Задача №5
Var a,b:real;
begin
writeln('Введите А и В: ');
write('a=');
readln(a);
write('b=');
readln(b);
if (a<0) and (b<0) then writeln('ORT')
else if (a*b<0) then writeln('POL')
else writeln('Числа А и В являются положительными числами');
end.
Источник: Мозг.