program Bevardė6; var a,b:integer; begin WriteLn('Iveskite du sckaičius'); Read(a,b); WriteLn('Atsakymas:', a div 2, b div 2); Readln; ReadLn; end.