Если правильно понял ваше задание, то вот...
Однако всё равно не вполне ясна связь с разделом информатики, в котором опубликован вопрос.
"Изображённый на правой картинке воин вооружен современным оружием, способным поражать противника издалека. Его снаряжение практично и продуманно для ведения боя в современных условиях. Слева от него изображён воин, который жил раньше, поэтому его вооружение представляет себя только необходимые для ведения ближнего боя меч и щит. Такой воин лишён защитных качеств и удобства современной амуниции, вместо которой использует обычную одежду своего времени"
Var a,b,s
begin
readln
end.
//Pascal ABC.NET 3.1 сборка 1219
uses
GraphABC;
Var
i:integer;
begin
for i:=100 to 150 do
begin
clearwindow;
rectangle(i,i,i-30,i-30);
sleep(100);
end;
end.
Program my;var i,y:extended;begin i := 1.5; while i < 17 do begin y := 2 * sqr(i) + 4 * i - 2; writeln(y:0:1); i:= i + 1.5; end;end.
var a: integer;
begin
a:=1;
while a<100 do
a:=(a+2)*2;
writeln(a);
end.