Var A:integer;
Begin
A:=5000;
While A mod 39 <> 0 do
A:=A-1;
WriteLn(A);
End.
Калькулятор может выполнять задачи арифметики, и только те, которые в него заложены. Он не может быть перепрограммирован. Компьютер может выполнять любые задачи информатики и не только, может быть перепрограммирован.
Если взять массив от 1 до 20 то программа примерно выглядит так:
Program primer;
Var
A: array [1..20] of real;
i:integer;
Begin
For i:=1 to 20 do
Begin
a[i]:=i/2;
Write(a[i],'|');
End;
End.