Question

ПОМОГИТЕ ПОЖАЛУЙСТА ПРОШУ

Answer 1

1.--------
var  a, b, c: integer;

begin 
 writeln('Введи два числа:');
  read(a, b); 
 c := a + b; 
 write('Сумма=', c);
end.
-------------------
2. n=6; блок-схема на картинке;
------------------
3.
program z3;
var  a, b: integer;
begin 
 Writeln('Введите 2 числа:'); 
readln(a, b); 
 if a > b then
  begin    a := a * 5;   
 writeln(a); 
 end; 
 if b > a then 
 begin   
b := b * 5;
    writeln(b); 
 end;
end.
------------