модуль 3 задание 3

Продолжение
7. Оператор присваивания в Паскаль:
<переменная>:=<выражение>
V:=A+1
Оператор присваивания в Бейсик:
<переменная>=<выражение>
V=A+1
8. Операторы ветвления
Паскаль:
If <логическое выражение> then <оператор 1>else <оператор 2>;
if a<0 then b:=1;
Бейсик:
If УсловиеThen
Серия 1
Else
Серия 2
End If (Visual Basic)

CLS

INPUT "Введите год основания Москвы: M="; M

IF M = 1147 THEN PRINT "Вы правы!" ELSE PRINT "Вы ошиблись!"

9. Операторы ввода и вывода
Паскаль:
Ввод данных с клавиатуры:
read(<список ввода>); readln(< свисок вывода>);
Readln (A1, A2,... AK);
Вывод данных на экран:
write(<список вывода>);
writeln(<список вывода>);
Write  (A1, A2,... AK);
Writeln  (A1, A2,... AK);
Бейсик:
Ввод данных с клавиатуры:
INPUT <Переменная>
Вывод данных на экран:
PRINT <Список вывода>
INPUT "Загадано число от 1 до 100, угадайте его :)"
INPUT "Ваш вариант";
PRINT v
10. Program E;
var
A: integer;
B: longint ;
begin
A:=1; B:=0;
reperat
B:=B+A*A;
A:=A+1;
until A>100;
writeln (B);
End.
11. FOR X=10 TO 100 STEP 2
LET Y=SQR(X)
PRINT X,Y
NEXT X