Язык программирования Паскаль

program listing_1_1;
begin
writeln (‘Это пример ');
writeln (‘первой программы ');
end.
Первые программы
Это пример
первой программы

program listing_1_2;
var
N: integer;
begin
read(N);
N:=N*N;
write (' Квадрат введенного числа равен ',N)
end.
Первые программы

program listing_1_3;
var N,M,W:integer;
begin
N:= 25;
M:= 6;
W:= N*M;
writeln ('25 умножить на 6 равняется ',W);
W:= N div M;
writeln ('Результат целого деления 25 на 6 равняется ',W);
W:= N mod M;
writeln ('Остаток от деления 25 на 6 равняется ',W);
W:= N + M;
writeln ('Сумма 25 и 6 равняется ',W);
W:= N - M;
writeln ('Если от 25-ти отнять 6, то получится ',W)
end.
Первые программы
25 умножить на 6 равняется 150
Результат целого деления 25 на 6 равняется 4
Остаток от деления 25 на 6 равняется 1
Сумма 25 и 6 равняется 31
Если от 25-ти отнять 6, то получится 19