Zadachi po programmirovaniyu.Pascal.Srochno!

Question

Даны действительные числа x,y.Меньшее из этих двух чисел заменить их полусуммой, а больше их удвоенным произведением. 
 
Немного написал, но чего-то не хватает: 
Program z8_2; 
var x,y:real; 
Begin 
writeln ('vvedite 2 4isla') 
readln(x,y); 
writeln IF x

writeln IF x

Екатерина Зверева · Accepted Answer

Задача простая, но как она будет на паскале, я не знаю (( На бейсике написал бы...

Инна Устюжанина · Answer

uses crt; 
var 
x, y: real; 
begin 
clrscr; 
writeln('Vvedite x, y: '); 
readln(x,y); 
if x < y then 
begin 
y := 2*x*y; 
x := (y+x)/2; 
end 
else 
begin 
y := (y+x)/2; 
x := 2*x*y; 
end; 
writeln('X = ', x, ', Y = ', y); 
readln; 
end.