Программирование. Контрольная работа

Ninoaauoa i?ia?aiio, ii?aaaey?uo? yaeyaony ee
aaiaeiia n eeaaeaoo?u oaeia ?enei iiei?eoaeuiui eee io?eoaoaeuiui. Windows, Messages, SysUtils,
Classes, Graphics, Controls, Forms, Dialogs; label start,fin; writeln('Dannoe chislo
>0');goto fin; end; fin:end. Iaieoeoa i?ia?aiio, eioi?ay cai?aoeaaao aaiu
iaaaee e, anee aaaa?iiue aaiu yaeyaony noaaioie eee aine?anaiuai, auaa?o
niiauaiea: "Naaiaiy auoiaiie!" Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs; implementation if
day='Tuesday' then write('Go to work'); if day='Friday' then
write('Go to work'); if
day='Sunday' then write('Have some fun') else Writeln('Vvedeno nepravilnoe
znachenie'); Au?eneeoa cia?aiea ooieoee Z(x,y) i?e
x=15,32245; y=5,32411 n iaeneiaeuiie oi?iinou?. Aea ooieoee Z(x,y) niioaaonoaoao
caaaie? 1 e Eaai?aoi?iie ?aaioa ?1 (ii aa?eaioai). Windows, Messages, SysUtils,
Classes, Graphics, Controls, Forms, Dialogs; var vano: goto vano;end; Ninoaauoa i?ia?aiio,
eioi?ay cai?aoeaaao aaa no?iee oaenoa e ii?aaaeyao aee??aao ee ia?aay no?iea
oaeno aaaa?iiue ai aoi?o? no?ieo. Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs; Form1: TForm1; write('Vvedite 2-u stroku
texta:'); writeln('2 stroka > 1-oy, chto ne dopustimo'); writeln('stroka 1 vkluchaet v sebia stroku 2');