1. Spúšťame guličku z výšky h. Gulička sa po dopade odráža do výšky 70% z predchádzajúcej výšky až dovtedy, kým jej výška nie je menšia ako 1.
program gulicka;
uses crt;
var h:real;
n: integer;
begin
clrscr;
writeln ('Zadaj povodnu vysku gulicky');
read (h);
if h>0 then writeln ('cislo je kladne');
if hn (t,’c:bp|bin|praca2.txt’);
reset (u);
repeat read (u,c);
if eoln (u) then n:=n+1;
write (c);
until eof (u);
close (u);
reset (u);
rewrite (t);
repeat
read (u,c);
if (ord (c) 65) and (ord (c)96) and (ord (c)= 97) and (ord(riadok[i]) 122 then riadok[i]:=char(ord(riadok[i])+posun-26)
else riadok[i]:=char(ord(riadok[i])+posun);
end;
end;
writeln(riadok);
end;
close(f1);
readln
end.