Question

Напишите программу нахождения из большей из двух чисел. (Даю 99 БАЛОВ)

*Например*

program n_10
var y, a, b, c : integer;
begin
writeln ('Нахождение наибольшей из трёх величин');
write ('Введите a,b,c>>')
readln (a,b,c);
y:=a;
И так-далее.

Answer 1

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b):=ReadReal2('Введите два числа:');
  if a>b then Writeln('Первое число больше')
  else
    if b>a then Writeln('Второе число больше')
    else Writeln('Числа равны')
end.

Пример
Введите два числа: 25 24.95
Первое число больше

Answer 2

Program asd;
uses crt;
var a,b,c : integer;
begin
c:=0;
writeln('Введите первое число');
readln (a);
writeln('Введите второе число');
readln(b);
if a<b then c:=a else c:=b;
writeln(c);
end.