Язык Паскаль был создан Никлаусом Виртом в 1968—1969 годах после его участия в работе комитета разработки стандарта языка Алгол-68. Язык назван в честь французского математика, физика, литератора и философа Блеза Паскаля, который создал первую в мире механическую машину, складывающую два числа. Первая публикация Вирта о языке датирована 1970 годом, представляя язык, автор указывал в качестве цели его создания — построение небольшого и эффективного языка хорошему стилю программирования, использующемуструктурное программирование и структурированные данные.
Const n=10; Var a:array[1..n] of integer; i,k,j:integer; Begin Randomize; For i:=1 to n do Begin A[i]:=Random(10); Write(a[i],' '); end;
Writeln;
For i:=1 to n do Begin If a[i] mod 3=0 then Write(a[i],' '); end;
for i:=1 to n-1 do for j:=1 to n-i do begin if (a[j] > a[j+1]) then begin k:= a[j]; a[j] := a[j+1]; a[j+1] := k; end; end; writeln; for i:=1 to n do write(a[i],' '); readln; end.
Var a:array[1..n] of integer;
i,k,j:integer;
Begin
Randomize;
For i:=1 to n do
Begin
A[i]:=Random(10);
Write(a[i],' ');
end;
Writeln;
For i:=1 to n do
Begin
If a[i] mod 3=0 then
Write(a[i],' ');
end;
for i:=1 to n-1 do
for j:=1 to n-i do
begin
if (a[j] > a[j+1]) then
begin
k:= a[j];
a[j] := a[j+1];
a[j+1] := k;
end;
end;
writeln;
for i:=1 to n do
write(a[i],' ');
readln;
end.