Якщо модель подають за до спрощеного матеріального об'єкта, то
отримують:​

program xxx;

      var i, x, s : integer;

begin

  write('введите число х=');

  readln(x);

  s: =0

  i: =1

  while i < =x do

      begin

          s: =s+i;

          i: =i+2

      end;

  write('сумма нечетных чисел ='; s);  

  readln

end.

64*48*12*8=294,912- обьем в байтах 1 стр

64000*16=1024000 б=128000 б=125 кб

грубо и сердито:

var c: longint;

begin

  read(c);

  c: =c mod 10;

  c: =sqr(c);

  writeln(c);

end.