Turbo Pascal

write writeln (вывод сообщения из переменной) Program pervaya; uses crt; var k,l:integer; begin clrscr; k:=6; l:=10; write(k); write(l); write(,k,,l); readln; end.

write writeln Program pervaya; {название программы} uses crt; {библиотека используемых команд} var k,l:integer; {используемый тип данных} begin {начало программы} clrscr; {очистка экрана} k:=6; l:=10; {назначение переменным значения} write(k); {напечатать на экране переменной к} write(l); {напечатать на экране переменной l} write(,k,,l); {напечатать на экране переменной к и l с пробелами} readln; {задержка выполняемой программы} end.

Тип данных Целый тип данных Hortint Integer Longint Byte Word Вещественный Real 2,9e-39..1,7e38

write writeln Program pervaya; uses crt; var k,l:integer; begin clrscr; k:=6; l:=10; write(k); write(l); write(,k,,l); readln; end.

read readln (ввод сообщения в программу) Program pervaya; uses crt; var k,l:integer; begin clrscr; write(vvodim dva chisla ); readln(k,l); write(,k,,l); readln; end.

If A>B then A=5 else A=10 (если то иначе) Program pervaya; uses crt; var k,l:integer; begin clrscr; write(vvodim dva chisla ); readln(k,l); If k>l then writeln(vivodim k,k) else writeln(vivodim l,l); readln; end.

For i:=1 to 10 цикл со счетчиком

Звездочка

Спелость арбузов