Question

СРОЧНО.
Составить блок-схемы и программы для следующих задач:
Задача 1.
Запросить ввод чисел A и B с клавиатуры. Найти сумму чисел S, произведение чисел M. Вывести на экран результаты вычислений.

Задача 2.
Запросить ввод чисел M и N с клавиатуры. Сравнить числа (проверить на выполнение условие M>N). Вывести на экран текст «Большее число:» и соответствующее значение.

Answer 1

№1. Блок схема только к 1 заданию!!!!!!!!!!!!!!!!!!!!!!!!
Program v1;  Var S,M,A,B: integer; Begin
 Write ('Введите А и В, через пробел: ');  Readln (A,B);   S := A + B;  M := A * B;
Writeln ('S = ', S); Write ('M = ', M);  
End. 
№2.
Program v1;  Var S,M,A,B: integer; Begin
 Write ('Введите А и В, через пробел: ');  Readln (A,B);  if (A > B) then Write ('Число ',A,' больше числа ',B)  else   Write ('Число ',B,' больше числа ',a)
End.