Задание 3 для модуля 3
Запись операторов присваивания в ЯП Pascal и Basic:

В Pascal:

<переменная>: = <выражение>

V:=A+1
В языке Basic:
<переменная> = <выражение>

X:=Y+Z
Операторы ветвления в ЯП Pascal и Basic:
В ЯП Pascal:

If <логическое выражение> then <оператор1> else <оператор2>;

if A>B then C:=A else;С=B
В ЯП Basic:
 If Условие Then
Серия 1
Else
Серия 2
End If (Visual Basic)
if i<=High(a) then Find:=i else Find:=-1; end.
Операторы ввода-вывода:
 В ЯП Pascal:
Ввод данных с клавиатуры:
read(<список ввода>); readln(<список ввода >);

Вывод данных на экран:
write(<список вывода>); writeln(<список вывода >);
В ЯП Basic:
Ввод данных с клавиатуры:
INPUT <Переменная>
Вывод данных на экран:
PRINT <Список вывода>
INPUT X1 PRINT A1 A2
Примеры записи цикла на ЯП Pascal:
Цикл с параметром:

For i:= N1 To N2 Do <оператор>;
либо
For i:= N1 DownTo N2 Do <оператор>;
Цикл с предусловием:
While <логическое выражение> Dо <тело цикла>;
Цикл с постусловием:
Repeat <тело цикла> until<логическое выражение>;
For V:= E1 to E2 do S
Пример записи цикла с параметром на ЯП Basic:
проверка условия в конце цикла
DO
тело_цикла
LOOP WHILE условие
проверка условия в начале цикла
DO WHILE условие
тело_цикла
LOOP
Пример:
DO
A=A+1
LOOP WHILE A>15