Проснулся
Встал с кровати
Пошел в туалет
Зашёл вк
Поставил чай и сделал бутеров
Затем собрал портфель
После пошёл покушал
Одел школьную форму и пошёл на остановку
Сел и поехал
Program hdjj;
Var z,x,y,p
Begin
Writeln('');
Read(x,z,y);
If (x<y) and (x<z) then p:=x;
Writeln(p);
End;
If (z<y) and (z<x) then p:=z;
Writeln(p);
End;
If (y<x) and (y<z) then p:=x;
Writeln(p);
End.
Const
var s:integer;
procedure ploshad poverhnosti (s:integer);
var h,l,sbok:integer;
begin
writeln (' vedite l i h');
readln (l,h);
sbok:=h*(l^2);
end;
begin
s:=(ploshad poverhnosti)+2*(l^2);
writeln(s,' ');
readln;
end.
Но это очень не точно.
Практически во всех операционных системах имя файла составляется из двух частей, разделенных точкой. Например:myprog.pas
Слева от точки находится собственно имя файла (ту-prog). Следующая за точкой часть имени называется расширением файла (pas). Обычно в именах файлов употребляются латинские буквы и цифры. В большинстве ОС максимальная длина расширения - 3 символа. Кроме того, имя файла может и не иметь расширения. В операционной системе Windows в именах файлов допускается использование русских букв; максимальная длина имени - 255 символов.Расширение указывает, какого рода информация хранится в данном файле. Например, расширение txt обычно обозначает текстовый файл (содержит текст); расширение рсх - графический файл (содержит рисунок), zip или гаг - архивный файл (содержит архив - сжатую информацию), pas - программу на языке Паскаль.
<span>Файлы, содержащие выполнимые компьютерные программы, имеют расширения ехе или com.
Удачи!</span>
Ответ:
program ideone;
uses Math;
var
n, i, j: Integer;
begin
read(n);
for i := 0 to n-1 do
begin
for j := 0 to n-1 do
begin
if (j > 0) then write(' ');
write(Min(Min(i, j), Min(n-i-1, n-j-1))+1);
end;
writeln;
end;
end.