ReadNat(data)
ReadNat(luna)
ReadNat(anul)
If (anul mod 4 = 0) then
Case luna of
Ian:0
Feb:31
Mar:60
Apr:91
Mai:121
Iun:152
Iul:182
Aug:213
Sep:244
Oct:274
Noi:305
Dec:335
END
Else
Case luna of
Ian:0
Feb:31
Mar:59
Apr:90
Mai:120
Iun:151
Iul:181
Aug:212
Sep:243
Oct:273
Noi:304
Dec:334
END
END
Nr:=luna+data
Writenat(Nr)
End