Графика в Qbasic. Рисование "Мороженое".

а)сумм(a5: b7)

б)срзнач(c4: c7)

program primitive;

var a,b: integer;

begin 

read(a,b);

writeln(a mod b);

end.чему в школе то  

var a,b,c,d: integer;

begin

  read(a,b,c,d);

  if (a*b*c*d mod 3 = 0) then

        writeln("pravda")

  else writeln("nepravda");

end.

информатия в видиопамяти хронится в двоичном коде