program Turgus;
var d : integer;
a, b : string;
begin
writeln('Iveskite savaites dienos skaiciu...');
readln(d);
a := 'TURGAUS DIENA';
b := 'NE TURGAUS DIENA';
if d > 7 then write('Dienos koduojamos skaiciais -> 1, 2, 3, 4, 5, 6, 7.')
else if d mod 2 = 0
then write(a)
else write(b);
Readln;
end.
program Pietus;
var a, b : integer;
begin
writeln('Kiek Jonas turi LT?');
readln(a);
writeln('Kiek kainuoja pietus?');
readln(b);
if a >= b
then write('GALI')
else write('NEGALI');
Readln;
end.