===== PascalABC.NET =====
begin
var a := ArrRandom(50, -99, 99);
a.Println;
var b := ReadArrReal('Ведите 10 чисел:', 10);
b.Println;
end.
Язык программирования Паскаль. Microsoft office Word
var a:integer;
begin
writeln('Days Of Week');
readln(a);
case a of
1: write('Monday');
2: write('Tuesday');
3: write('Wednesday');
4: write('Thursday');
5: write('Friday');
6: write('Saturday');
7: write('Sunday');
end;
end.
year = int(input())
if year % 4 == 0 and year % 100 != 0:
print('Високосный')
elif year % 400 == 0:
print('Високосный')
else:
print('Не виокосный')