Рассмотрите ситуацию заполни таблицу 1. автомобиль едет по дороге 2. учитель ведет урок 3. дедушка читает журнал 4. ребёнок смотрит мультфильм пять. ученик выполняет домашнее задание 6. мама стирает свитер
2) не Written, а writeln 3) аналогично, не Writelen, а writeln
4) не Redlrn; а readln End;
Program primer1; {название без пробелов и с точкой и запятой} Uses Crt; {подклжючение необходимых библиотек} Var a, B, Z:integer; {обьявление переменных, : после переменных, и ; после типа переменных} Begin {начало тела программы, ничего не ставится, так как єто начало исполнения программы} clrscr; {очиска экрана} Writeln(введите два целых числа ); {ln делает вывод на экран после с новой строки} Readln(a, b); {данные вводяться каждый с новой строки} Z=a*b; {поск произведения} Writeln('произведени чисел =',z) {вывод на экран результата произведения} Writeln ('нажми enter ';) Redln;{задержка экрана, чтобы успеть увидеть результат, до нажатия клавишы Энтер} End.{конец тела программі, ставиться не точка с запятой, а лишь точка}
2) не Written, а writeln
3) аналогично, не Writelen, а writeln
4) не Redlrn; а readln
End;
Program primer1; {название без пробелов и с точкой и запятой}
Uses Crt; {подклжючение необходимых библиотек}
Var a, B, Z:integer; {обьявление переменных, : после переменных, и ; после типа переменных}
Begin {начало тела программы, ничего не ставится, так как єто начало исполнения программы}
clrscr; {очиска экрана}
Writeln(введите два целых числа ); {ln делает вывод на экран после с новой строки}
Readln(a, b); {данные вводяться каждый с новой строки}
Z=a*b; {поск произведения}
Writeln('произведени чисел =',z) {вывод на экран результата произведения}
Writeln ('нажми enter ';)
Redln;{задержка экрана, чтобы успеть увидеть результат, до нажатия клавишы Энтер}
End.{конец тела программі, ставиться не точка с запятой, а лишь точка}