jei nesunku ;)

1. Parenkite programą „Skaičiuoja“, kuri įvedus gyvūnų ir žmonių skaičių, pateiktų tokią informaciją ekrane: Kiek iš viso kojų, kiek rankų, kiek akių bei galvų yra. Gyvūnų skaičių įvesime taip: Pirma suvedame kiek keturkojų, po to kiek dvikojų ir tik po to, kiek bekojų (pvz. žuvų). Parenkite duomenų suvedimui procedūrą. Rezultatus galite spausdinti arba iš procedūros, arba iš pagrindinės programos

program kazikas;
var keturkojai,dvikojai, bekojai : integer;
begin
	procedure lala {kažkokia tai proceduros sintaksė, katrą susigūglink pats}
	begin
			readln(keturkojai);
			readln(dvikojai);
			readln(bekojai);

			writeln('Akių yra: ', (keturkojai+dvikojai+bekojai)*2); {su sąlyga, kad visi aparatai turi po 2 akis}
			writeln('Galvų yra: ', (keturkojai+dvikojai+bekojai)); {su sąlyga, kad bekojai turi galvas}
			writeln('Rankų yra: ', dvikojai*2); {su sąlyga, kad letenas turi tik dvikojai}
			writeln('Kojų yra: ', (keturkojai+dvikojai+bekojai)*2);
	end
	lala;
end.

Kažkas tokio.