Написать программу:вывести на экран числа 3,9,81;
Паскаль

program task_1;

var text:integer;

begin

text:="3,9,81";

write (text);

end.

Работа без компилятора, так что вот что есть то есть.

program kvadrat;

var i : integer;

begin

for i: = 10 to 100 do

writeln ( i: 2, i*i : 5);

readln;

end. 

по углам комнаты расставить 4 стула и   около каждой стены по одному ( ещё 4 стула). всего 8 стульев : )