Составить программу запрашивающую 3 числа, и если число четное, то увеличивается…

program example; var a,b,c,d: integer; begin writeln ('Введите 3 числа'); writeln ('Первое число '); readln (a); writeln ('Второе число '); readln (b); writeln ('Третье число '); readln (c); if a mod 2=0 then a: =a+2; if b mod 2=0 then b: =b+2; if c mod 2=0 then c: =c+2; writeln ('Числа после обработки: ',a,',b,',c); end.