Ввести два числа. Если сумма этих чисел четная, найти произведение, в противном случае, найти частное этих чисел.
  Program vet3; 
Var a,b:integer;
 d:real; 
Begin 
writeln ('Введите значение переменных a и b'); 
Readln (a,b); d:=a+b; If d mod 2=0 then d:=a*b else d:=a/b;
 Writeln ('Переменная d = ',d); 
End. 




 Ввести два числа. Вычесть из большего меньшее.
 Program vet4; 
Var a,b,d:integer; 
Begin
 writeln ('Введите значение переменных a и b');
 Readln (a,b);
 If a>b then d:=a-b else d:=b-a; 
Writeln ('Переменная d = ',d); 
End.