Case - разветвление, выбор из нескольких элементов или даже промежутков
And - логическая операция аналогичная коньюнкции
Or - логическая операция аналогичная дизьюнкции
ClrScr - clear screen, т.е. очистить экран
Легко и просто берешь рисуешь по клетках его и все готово
В большинстве случаев, скопированный объект может быть неоднократно вставлен. Или точнее сказать - почти всегда.
Но бывают программы которые после вставки очищают буфер обмена.
Так же есть программы, такие как Punto Switcher (которые переводят не правильно набранный, в другой раскладке текст) которые используют тот же буфер обмена (и если у вас в нем был скопирован какой то текст - он просто подменится этой программой).
Ну и последнее: операция "вырезать" вместо скопировать, не сохраняет содержимое в буфере обмена после его вставки, так, что в отличии от копирования, вставкв будет возможна только один раз
Var
p, num: integer;
begin
p := 1;
while p <= 1000 do
begin
read(num);
p := p*num;
end;
writeln(p);
end.