Определить обьем растрового изображения размером 900 на 600 при глубине цвета 24 бита ​

program z1;

  label 1;

  var s,k: real;

    begin

      s: =0;

      1: if s< =1 then begin

                        k: =sqr(s);

                        writeln(k);

                        s: =s+0.2;

                        goto 1;

                        end

                    else end.

program z1;

  var a,b,k,i: integer;

    begin

      k: =0;

      write('ââåäèòå êîîðäèíàòó à: ');

      read(a);

      write('ââåäèòå êîîðäèíàòó b: ');

      read(b);

      for i: =a to b do begin

                        if i mod 3=0 then begin

                                            writeln(i);

                                            k: =k+1;

                                          end;

                        end;

      writeln('количество чисел кратных трём равно ',k);

      readln;

    end.