/**
 * Created by IntelliJ IDEA.
 * User: User
 * Date: 19.10.2009
 * Time: 12:05:23
 * To change this template use File | Settings | File Templates.
 */

import java.util.Calendar;
import java.util.Date;
import java.text.SimpleDateFormat;
import static java.lang.Math.floor;

public class MyDate {
    Calendar cal = Calendar.getInstance();
    int y;
    int m;
    int d;

    /*
    */
    public MyDate() {
       // cal.setTime(new Date());
       // System.out.println(new Date());
        y = cal.get(Calendar.YEAR);
        m = cal.get(Calendar.MONTH)+1;
        d = cal.get(Calendar.DAY_OF_MONTH);
    }

    /*
    */
    public void out_date(int y, int m, int d) {
        System.out.println("Year  : " + y);
        System.out.println("Month : " + m);
        System.out.println("Day   : " + d);
    }

    /*
    */
    public int get_hight_year_is(int y) {
        return (((y % 4 == 0) && (y % 100 != 0)) || (y % 400 == 0)) ? 1 : 0;
    }
    /*
     */
    public void set_my_date() {
        int year = 2008;
        int month = 11;
        int day = 21;
        System.out.println("Input Year");
        System.out.println("Input Month");
        System.out.println("Input Day");
        MyDate data = new MyDate();
        cal.set(Calendar.YEAR, year);
        cal.set(Calendar.MONTH, month);
        cal.set(Calendar.DAY_OF_MONTH, day);
        data.y = cal.get(Calendar.YEAR);
        data.m = cal.get(Calendar.MONTH);
        data.d = cal.get(Calendar.DAY_OF_MONTH);
        System.out.println("Your setting date is :");
        data.out_date(data.y, data.m, data.d);
    }

    /*
    */
    public static void main(String[] args) {
        MyDate data = new MyDate();
        int y = data.y;
        int m = data.m;
        int d = data.d;
        int nod;
        data.out_date(y, m, d);
        data.set_my_date();
        if (data.get_hight_year_is(y) == 1) {
            System.out.println("The Year Is Leap");
        } else {
            System.out.println("The Year Is Normal");
        }
    }
}

Program lab10; 
uses crt; 
type mas=array[1..5,1..5] of integer; 
var f:text; 
a:mas; sred:real; 
s:string; 
i,j,:integer; 
b,c:array[1..5] of real; 
Procedure 1 (var a:mas); 
Var i,j:integer; 
Begin 
randomize; 
for i:=1 to 5 do 
for j:=1 to 5 do 
a[i,j]:=random(27); 
for i:=1 to 5 do 
begin 
for j:=1 to 5 do 
write (a[i,j]:5); 
writeln; 
end; 
begin 
clrscr; 
assign (f,'C:\stud\120891\lab10.txt'); 
1(a); 
For i:=1 to 5 do 
begin 
sred:=a[i,j]; 
for j:1 to 5 do 
begin 
sum:=0; sum:=sum+a[i,1]; 
sred:=sum/5; 
b:=sred; 
end; 
end; 
rewrite(f); 
for i:=1 to 5 do 
write (f, b:5); 
close(f); 
reset(f); 
for i:=1 to 5 do 
read (f,c); 
close(f); 
for i:=1 to 5 do 
write(c); 
repeat until keypressed; 
end; 
end.