Впаскаль. 1.с клавиатуры вводятся два числа а и в. меньшее из этих чисел заменить их полусуммой, а большее удвоенным произведением. 2. введены 3 числа, найти наибольшее.

Первое: 
Program nechet;
var a,b:real;
begin
readln(a);
readln(b);
if a<b then 
writeln('Первое число=',(a+b)/2, ' Второе число=', (a*b)*2)
else 
writeln('Первое число=',(a*b)*2, ' Второе число=', (a+b)/2)
end.