2 Дана программа на языке Паскаль заполни пропуски Вывод на экранвадратов чисел от 1 до 35 нарисуйте в рамочках

Program project1777;
uses  math,  Classes ;
 var   x,y,z:integer; 
 begin     
  writeln('vedite 1 chislo');readln(x);   
  writeln('vedite 2 chislo');readln(y); 
   writeln('vedite 3 chislo');readln(z); 
   begin
     if ((x>y) and (x>z)) then     writeln('samoe bolshoe chislo ',x) 
   else   
  if ((y>x) and (y>z)) then     writeln('samoe bolshoe chislo ',y)   
 else 
   if ((z>x) and (z>y)) then  
 writeln('samoe bolshoe chislo ',z); 
    end;     
begin   
  if ((x<y) and (x<z)) then 
   writeln('samoe malenkoe chislo ',x)
     else 
   if ((y<x) and (y<z)) then   
 writeln('samoe malenkoe chislo ',y) 
   else   
 if ((z<x) and (z<y)) then 
   writeln('samoe malenkoe chislo ',z);
     end;
   readln;
   end.

Актуальная информация-важна в настоящее время.Пример-вечером ожидается гроза(прогноз погоды) или движение по таким-то улицам будет перекрыто,в связи с проведением демонстрации,заранее пользуйтесь маршрутами об"езда.
Неактуальная информация может быть по-времени(устаревшая)-в 2010 году открыли новый участок трассы Москва-Дон или ненужной,неважной-курс Швейцарского франка стабилен или а Индии восстановили движение поездов(если Вы не воспользуетесь поездами в Индии в ближайшее время,то эта информация для Вас не актуальна).