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(a=a);
End.

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку