Паскаль. Составить программу. 8класс

[Виталька_51]

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

[gaw4]

"Прошу не для себя. попросили."
что от этого зависит, как Вы думаете?

[Виталька_51]

Просто начинают говорить что вот,как ты программирование знать будешь,задачи не можешь решить)
А меня просто охраник попросил помочь в общаге)))))
Сам в жд колледже учусь,мне это не надо)

[gaw4]

ну если не надо, то зачем суетитесь

[Виталька_51]

охраник мужик хороший) Поблажки имею из-за этого) Ну это другая история)

[Mad_Cat]

определить какое большее,какое меньшее,потом вывести требуемое

а какое из них требуемое то

{1}
var
  a, b: real;

begin
  read(a, b);
  if a < b then a := a * 2
  else if a > b then b := b * 2;
  write(a, ' ', b);
end.

{2}
var
  a, b: real;

begin
  read(a, b);
  if a <=b then writeln (a,'<=',b)
  else writeln (b,'<',a)
end.

[Poma][a]

Дык наверное :
Чтобы вывести наибольшее введите 1, для вывода наим. введите 2

[Rififi]

gaw4

ну если не надо, то зачем суетитесь

ты не въезжаешь, видимо в общаге не жил.
чувак дает охраннику прогу, и может приводить к себе тёлочек. профит:D