Var
a, b, c :integer;
Begin
Write('Vvedite a, b'); Readln(a, b);
C:=a+b; if c<7 then write('Summa =', c) else write('Summa bolshe 7');
READLN;
END.
Объяснение:
Я
Var
a, b, c :integer;
Begin
Write('Vvedite a, b'); Readln(a, b);
C:=a+b; if c<7 then write('Summa =', c) else write('Summa bolshe 7');
READLN;
END.
Объяснение:
Я