zadanie algoritmizacia, pascal

Ahojte všetci, potrebujem pomoc s jedným zadaním, lebo nemám zručnosti v algoritmizácií a v free pascale. Nájde sa tu neaká...

v Assembler, C, C++, Pascal, Java