Примеры. Writeln('Мне16лет');На экране появится: Мне 16 лет

1 2 3

Writeln('Мне16лет');На экране появится: Мне 16 лет

a:=11;

Writeln('Я учусь в ', а,' классе');На экране

появится: Я учусь в 11 классе

х:=3;у:=6;

Writeln(х+у,' рублей');На экране появится: 9 рублей

Если в одной команде выводится несколько чисел подряд, то чтобы числа не сливались в одну строку, необходимо выводить между ними пробел ' ' или указывать количество позиций выделяемых под это число.

Пример

а:=1; b:=2; с:=3;

Writeln (а, b, с);

Writeln(а,' ', b,' ', с);

Writeln(a:3, b:3, c:3);

{Число, указанное после двоеточия, (в нашем примере это 3) обозначает количество позиций выделяемых под вывод значения переменной. Если переменная занимает меньше позиций, то в оставшихся позициях перед значением переменной выводятся пробелы}

На экране появится:

1 2 3

READ (); или READLN (); - считывает в перечисленные в скобках переменные значения, введенные с клавиатуры (через пробел или после каждого значения нажимают Enter) Если значения вводились через пробел, то после ввода следует нажать Enter.

В качестве параметров в круглых скобках через запятую указываются имена переменных, значения которых считываются.

При работе с простыми переменными рекомендуется использовать команду Readln ();

Перед каждой командой ввода рекомендуется выводить на экран поясняющий текст с информацией о том, что именно нужно ввести.

Пример. Запросить с клавиатуры значение переменной а.

Var a: Integer;

…

Write (‘a=’);

Readln(а);

На экране появится а= и после знака равно будет мигать курсор в ожидании ввода с клавиатуры целого числа. После ввода числа необходимо нажать Enter.

Для того, чтобы не переходить к окну с результатами работы программы (Alt+F5) после запуска программы на выполнение, последней командой в любой программе перед End. записывается команда Readln; (Программа ждет нажатия Enter).

Задача. Найти произведение двух чисел.

Program N2;

Var a, b:Integer;

p: Longint;

Begin

Writeln(' Введите два числа ');

Readln(а,b);

р:=а*b;

Writeln ('произведение', а,' и', b,' равно', р);

Readln;

End.

4) Подведение итогов урока. Домашнее задание.