Výdělek na internetu - CZEmoney.com

Vytvorte program, ktorý zistí, či dva reťazce, zadané z klávesnice sa rovnajú. V hlavnom programe budú z klávesnice zadané dva reťazce. Následne bude zavolaná procedúra Testuj, ktorej budú oba reťazce odovzdané. Procedúra zistí a následne vypíše, či sa oba reťazce rovnajú. V programe deklarujte a definujte aj procedúru Podciarkni (bez parametrov). Úlohou procedúry bude, vždy po jej zavolaní, vypísať na jednom riadku 20 – krát za sebou znak hviezdicka (*). Hlavný program nech zavolá túto procedúru pred výpisom odpovede, či sa oba zadané reťazce rovnajú a taktiež po nej.

napríklad po zadaní prvého reťazca "ahoj" a druhého reťazca "ahjo" bude program odpovedať:

********************
Zadané reťazce sú rôzne
********************

if s1=s2 then writeln('Rovnaju sa') else writeln('Nerovnaju sa');