Цикл с условием
Задача:
Дано число n. Из чисел 1, 4, 9, 16, 25, ... напечатать те, которые не превышают n

Объяснение:

var n,i:integer;

begin

read (n);

if (n>=1)then begin

for i:=0 to n do

begin

if (i*2+i*i+1)<=n then writeln (i*2+i*i+1);

end;

end else writeln ('Нет таких чисел');

end.

а)какое свойство указывает на назначение объекта: ? ответ: являеться носителем информации

б)какое свойство указывает на форму объекта? ответ: круглый

пролететь - расстояние

проехать на лифте - номер этажа 

спрыгнуть - высота, скорость

поесть - количество

повернуть - время или направление