ПОМОГИТЕ ПОЖАЛУЙСТА Преобразовать алгоритм, записанный ** алгоритмическом языке в...

Question

ПОМОГИТЕ ПОЖАЛУЙСТА
Преобразовать алгоритм, записанный на алгоритмическом языке в программу на языке Pascal

алг максимальное число
нач цел a,b,m
ввод a,b
если a>=b
то m:=a
иначе m:= b
все
вывод m
кон

Comments

неужто

---

+++

Answer 1

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.

Answer 2

Program maximum_value;

var
    a, b, m: integer;

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