Алгоритмы с ветвлением

Повторение:
Write(список вывода);
WriteLn(список вывода);
Read(список ввода);
ReadLn(список ввода);
: =
Ввод данных
Присваивание
Ввод данных и перевод строки
Вывод данных и перевод строки
Вывод данных
Операторы
Назначение
Правильный ответ: 1-6; 2-5; 3-1; 4-4; 5-2, 6-3.

Найти ошибки в программе
Programm Div;
Var a,b,c,d,m: integer
begin;
readln(a,b,c,d); {Ввод}
m=a*d; {Числитель}
n:=bc; {Знаменатель}
write(m,n); {Вывод}
end;
Program Div;
Var a,b,c,d,n,m: integer;
begin
readln(a,b,c,d); {Ввод}
m:=a*d; {Числитель}
n:=b*c; {Знаменатель}
write(m,n); {Вывод}
end.

Алгоритмы с ветвлением

Условный оператор
Полное ветвление:
if <условие> then < серия команд 1 > else <серия команд 2>
Неполное ветвление:
if <условие> then < серия команд>
Серия 2
Серия команд

Задача 1. Даны значения двух величин: выбрать из них большее.
Программа:
Program Max2;
Var A,B,C: integer;
Begin
Write (‘Введи два числа’);
Read (A,B);
If A>B then C:=A else С:=В;
Write (‘Max = ’, C);
end.
Полное ветвление

Задача 2. Обменять местами (упорядочить) значения переменных X и Y по возрастанию.
Программа:
Program Sort;
Var X,Y,С: integer;
Begin
Write (‘Введи два числа’);
Read (X,Y);
If X>Y then
begin
C:=X;
X:=Y;
Y:=C;
end;
Write (X,Y);
end.
Begin-end
скобки условного
оператора
Неполное ветвление