Вопрос по информатике:

Задача№1

составить блок-схему и написать программу даны два числа к большему прибавить 1

программу на pascal

Задача№2

даны два числа а и б если число меньше 0 то увеличить оба числа на 6(прибавить 6) иначе на 12(прибавить 12)

Спасибо!!!

var   a, b: integer;   begin   Write('A = '); ReadLn(a);   Write('B = '); ReadLn(b);   if Odd(a) and Odd(b) then     if a < b then       a := Sqr(a)     else     if b < a then       b := Sqr(b);   WriteLn('A = ', a, '; B = ', b);   ReadLn end.