Определите, какие из высказываний в следующих парах являются отрицаниями друг друга, а какие нет. Являются отрицаниямиНе являются отрицаниями«5<10», «5>10»«10>9», «10≤9»«информатика будет первым уроком», «информатика будет вторым уроком»«ученым известны все планеты Солнечной системы», «в Солнечной системе есть планеты, неизвестные ученым»«кит — млекопитающее», «кит — рыба»«этот треугольник равнобедренный и прямоугольный», «этот треугольник или не равнобедренный или он не прямоугольный»​

Ну вот так это будет выглядеть с ветвлением и возможностью повторять вычисления без повторного запуска программы.

var a,b,c,d,z:integer;

begin
writeln('Введите 1 число');
read(a);
writeln('Введите 2 число');
read (b);
writeln('Введите 3 число');
read (c);
d:=a+b+c;
writeln('Сумма чисел ',a,'+',b,'+',c,'=',d);
writeln ('Хотите ли вы решить еще один пример? 1-ДА, 0-Нет');
read (z);
while (z = 1) do
begin
writeln('Введите 1 число');
read(a);
writeln('Введите 2 число');
read (b);
writeln('Введите 3 число');
read (c);
d:=a+b+c;
writeln('Сумма чисел ',a,'+',b,'+',c,'=',d);
writeln ('Хотите ли вы решить еще один пример? 1-ДА, 0-Нет');
read (z);
end;

end.