Question

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

Answer 1

Первое: 
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.