Uses crt;varB:array[1..9] of integer;i,min:integer;beginclrscr;randomize;for i:=1 to 9 dobeginB[i]:=random(100);write(b[i],' ');end;min:=b[1];for i:=1 to 9 doif b[i]<min then min:=b[i];writeln('min=',min);end.
<em>// PascalABC.NET 3.2, сборка 1436 от 01.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString('Вводите:').ToWords.Select(w->w.ToLower)
.Where(w->w=w.Inverse).Println
end.
<u>Пример</u>
Вводите: Шла Алла по дороге видит дед несет наган
алла дед наган
<span>Таблицы типа «объект-свойство
</span>
program HelloWorld;
var k:integer;
begin
writeln('Введи сторону');
readln(k);
writeln(k*k)
end.