Ahojte to som zas ja
predchadzajuci pr mi neslo nakoniec teraz sa obraciam na vas znovu ci by ste mi nevedeli opravit pr stiahôa spm si to z netu bolo tam 17chyb opravila som uz mi hlasi len dve len neviem ich nijak opravit viem ze mam tam chybu kde je if no ale neviem to s nicim nahradit na vsetko mi vyhadzuje chybu a ma to byt zaznam a este + s text. prepojenim (to tam nemam ) . Ak by niekto dakujem krasne
popripade ak by niekto mal program so zaznamom a s text. prepojenim aj to by mi postacilo dakujem vopred za kazdu pomoc
{Program nacita cislo mesiaca a vypise v akom rocnom obdobi sa nachadza }
Program mesiac;
Type
Tmesica=record
Cislomesiaca:string;
x:integer;
end;
var
cislomesiac:Tmesiac;
begin
writeln('zadaj cislo mesiaca');
write('cislo mesiaca');
if 1..12 then write
1:write('Mesiac januar je zimny mesiac');
2:write('Mesiac februar je zimny mesiac');
3:write('Mesiac marec je jarny mesiac');
4:write('Mesiac april je jarny mesiac');
5:write('Mesiac maj je jarny mesiac');
6:write('Mesiac jun je letny mesiac');
7:write('Mesiac jul je letny mesiac');
8:write('Mesiac august je letny mesiac');
9:write('Mesiac september je jesenny mesiac');
10:write('Mesiac oktober je jesenny mesiac');
11:write('Mesiac november je jesenny mesiac');
12:write('Mesiac december je zimny mesiac');
else write ('Zadali ste zle cislo mesiaca');
end;
readln;
end.
Nastuduj si zaklady a syntax a asi aj pravidla fora.
