Question

Преобразовать алгоритм, записанный на алгоритмическом языке в программу на языке pascal алг максимальное число нач цел a,b,m ввод a,b если a> =b то m: =a иначе m: = b все вывод m кон

Answer 1

Program maximum_value;

var
    a, b, m: integer;

begin
    read(a, b);
    if a >= b then
        m := a
    else m := b;
    writeln(m);
end.

Answer 2

1. Free Pascal

program MaxNum;
var a,b,m:integer;
begin
  Read(a,b);
  if a>=b
  then m:=a
  else m:=b;
  Writeln(m)
end.

2. PascalABC.NET 3.2

program МаксимальноеЧисло;
begin
  var a,b,m:integer;
  Read(a,b);
  if a>=b
  then m:=a
  else m:=b;
  Writeln(m)
end.