Язык Паскаль был создан Никлаусом Виртом в 1968—1969 годах после его участия в работе комитета разработки стандарта языка Алгол-68. Язык назван в честь французского математика, физика, литератора и философа Блеза Паскаля, который создал первую в мире механическую машину, складывающую два числа. Первая публикация Вирта о языке датирована 1970 годом; представляя язык, автор в качестве цели его создания указывал построение небольшого и эффективного языка хорошему стилю программирования, использующему структурное программирование и структурированные данные.
Последующая работа Вирта была направлена на создание на основе Паскаля языка системного программирования, с сохранением возможности вести на его базе систематический, целостный курс обучения профессиональному программированию.Результат этой работы — язык Модула-2.
Const N = 13; Var A,B:array[1..N] of integer; i:integer; S1,S2:real; Begin Randomize; S1:=0; S2:=0; Write('A('); For i:= 1 to N-1 do Begin A[i]:=random(201)-100; Write(A[i],',') End; A[N]:=random(201)-100; Write(A[N],')'); WriteLn;
Write('B('); For i:= 1 to N-1 do Begin B[i]:=random(201)-100; Write(B[i],',') End; B[N]:=random(201)-100; Write(B[N],')'); WriteLn; WriteLn; Write('|A| = '); For i:= 1 to N do Begin S1:=S1+A[i]*A[i]; End; S1:=Sqrt(S1); WriteLn(S1); Write('|B| = '); For i:= 1 to N do Begin S2:=S2+B[i]*B[i]; End; S2:=Sqrt(S2); WriteLn(S2); WriteLn; Write('Ближайшая точка: '); if S1 < S2 then WriteLn('A') else WriteLn('B') End.
PascalABC.NET
function RS(a: array of integer): integer;
begin
var n := a.Length;
Result := a[0];
if n > 1 then
Result += RS(a[1:])
end;
begin
var n := ReadInteger('Число слагаемых:');
var a := ReadArrInteger('Вводите:', n);
RS(a).Println
end.