var a : integer;
c:real;
begin
writeln('Введите число: ');
readln(a);
c:=a/2;
writeln('слагаемые: ', c, ' + ' , c);
end.
