var i,j:integer;
begin
for i := 1 to 4 do
begin
for j:=i to 4 do write('0');
writeln
end
end.
Звенит когда кто то звонит, на нем школьники делают уроки, если вставить его в компьютер, то можно смотреть фильмы, в ней пишут все произошедшее и свои мысли, маленькая,любит сыр, туда ходят учится, получать знания.
Var i:integer;
begin
for i:=10 downto 1 do
writeln(i);
end.