Megpróbáltam megcsinálni ezt a vírusos dolgot, de nem tudom mi a feladat, egyszerûen megjeleníteni a képernyõn a virusok fejlõdését? Na mindegy, itt van: ahol 1, ott van vírus, ahol 0, ott nincs:
program virus;
uses crt;
const n=30;
type nemzetseg = array [1..n, 1..n] of integer;
var i,j : integer;
virusok,kor : nemzetseg;
function Szomszedok(tomb : nemzetseg; x,y : integer) : integer;