Контрольная по информатике

{ Пример программы для процедуры FloodFill } 
Uses Graph,Crt; 
Var Gd, Gm : Integer; 
Begin 
Gd:=Detect; 
InitGraph(Gd, Gm, ''); 
If GraphResult <> grOk Then Halt(1); 
SetColor(GetMaxColor); 
Circle(50, 50, 20); 
FloodFill(50, 50, GetMaxColor); 
Readkey; 
CloseGraph; 
End. 

Procedure FloodFill(X, Y : Integer; Border : Word); 
Закрашивает замкнутую область, используя текущие стиль и цвет закраски. 

Procedure SetFillStyle(Pattern : Word; Color : Word); 
Устанавливает цвет и стиль закраски. 

Procedure SetColor(Color : Word) 
устанавливает текущий цвет, 

Программа на Pascal
 var   Age : integer;
begin Repeat Write('Введите Ваш возраст: ');
Readln(Age); until Age in [1..99];
if Age in [10..20] then Writeln('Мне ', Age, ' лет')
else    case Age mod 10 of    1: Writeln('Мне ', Age, ' год');    
2, 3, 4 : Writeln('Мне ', Age, ' года');    
0, 5..9 : Writeln('Мне ', Age, ' лет');
end;
end.
программа на C++
#include <iostream> 
using namespace std; 
int main() 
{ 
setlocale(LC_ALL,"rus"); 
int k; 
cin>>k; 
if(k >0 && k<100) 
cout<<"Мне "<< k <<" лет"; 
system("pause >> void"); 
}