fork download
copy 
  1. program test;
  2.  
  3.  Uses sysutils;
  4.  
  5.  var rc:string[10];
  6.  var irc: Array [1..10] of Integer;
  7.  var i:Integer;
  8.  var YY,MM,DD:Word;
  9.  var date1,date2,ResultDate:TDateTime;
  10.  
  11.  begin
  12.       readln(rc);
  13.       for i := 1 to 10 do begin
  14.            irc[i] := Ord(rc[i])-48;
  15.            //writeln(irc[i]);
  16.       end;
  17.  
  18.       if irc[3] > 3 then writeln('Zena.')
  19.       else writeln('Muz.');
  20.  
  21.       date1 := Date;
  22.       DecodeDate(date1,YY,MM,DD);
  23.       if ((irc[3] = 3) OR (irc[3] = 6)) OR (irc[3] = 8) then date2 := EncodeDate(YY,10*irc[3]+irc[4],10*irc[5]+irc[6])
  24.       else date2 := EncodeDate(YY,irc[4],10*irc[5]+irc[6]);
  25.  
  26.       ResultDate := date2-date1;
  27.       DecodeDate(ResultDate,YY,MM,DD);
  28.  
  29.       writeln('Do narodenin zostava (mesiacov, dni):');
  30.       writeln(MM);
  31.       writeln(DD);
  32.  end.
Success #stdin #stdout 0.01s 384KB
comments (?)
stdin
copy 
8807147455
stdout
copy 
Muz.
Do narodenin zostava (mesiacov, dni):
5
13
https://ideone.com/FtNJH
language:
Pascal (fpc 3.0.4)
created:
12 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!