Составить блок-схемы и программы для следующих : 1. запросить ввод чисел a и b с клавиатуры. найти сумму чисел s, произведение чисел m. вывести на экран результаты вычислений. 2. запросить ввод чисел m и n с клавиатуры. сравнить числа (проверить на выполнение условие m> n). вывести на экран текст «большее число: » и соответствующее значение.

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.