Program cislo;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a < 0 then a:=a+37;
writeln(a);
readln;
end.
program cislo;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a > 0 then a:=a+37;
writeln(a);
readln;
end.
program cislo;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a > 0 then a:=a;
writeln(a);
readln;
end.

Вариант №1

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
begin
  //Для теста заполним массив сл. числами
  var a := arrrandom(50); a.Println;
  println('Максимальное значение',a.max);
end.

Тестовое решение:
25 78 95 85 97 57 77 49 58 26 36 57 74 24 19 94 66 33 32 43 32 7 64 24 11 2 60 45 6 40 31 19 40 53 80 67 18 26 39 23 53 63 26 18 84 11 11 72 19 79
Максимальное значение 97

Вариант №2 (с циклом for и заполнением массива с клавиатуры)

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const
  n = 50;

var
  a: array[1..n]of integer;
  i, max: integer;

begin
  max := -MaxInt;
  for i := 1 to n do
  begin
    writeln('Введите ', i, ' число ');readln(a[i]);
    if a[i] > max then max := a[i];
  end;
  writeln('Максимальное ', max);
end.

Смотря для какого тебе языка надо, вот для VisualBasic

 

Sub Neskolko_Chisel

 

Dim Sum, i, a, N As Integer

 

N = InputBox("Введите количество чисел")

 

For i = 1 to N

a = InputBox("Введите число")

Sum = Sum + a

Next i

 

End Sub

 

 

вот для с++

 

#include <iostream>
#include <conio.h>
using namespace std;

int main()
{
setlocale(LC_ALL, "Russian");

int a, N, Sum, i;
Sum = 0;
N = 0;
a= 0;
cout << "Введите количество чисел! ";
cin >> N;

for (i = 1; i <= N; i++)
{
cout << "Введите число!" ;
cin >> a;
Sum = Sum + a;
}
cout << Sum;

_getch();
}