1.Заполните массив значениями случайным образом и выведите его на экран.
Матрица 5х5
const n=5;
var a:array[1..n,1..n]of integer;
i,j,max,k,t:integer;
begin
randomize;
writeln('Исходный массив');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:3);
end;
writeln;
end;
write('Введите k');
readln(k);
max:=-1;
t:=0;
for i:=1 to n do for j:=1 to n do if a[i,j] mod k=0 then
begin
t:=t+1;
if a[i,j]>max then max:=a[i,j];
end;
write('t=',t);
writeln('MAX=',max);
end.

Basic:
DIM tetradCount as INTEGER, oblojCount as INTEGER, price1 AS INTEGER, price2 AS INTEGER
CLS
INPUT "Введите кол-во тетрадей:"; tetradCount
INPUT "Введите кол-во обложек:"; oblojCount

price1 = tetradCount * 5
price2 = oblojCount * 3

PRINT "Стоимость тетрадей:"; price1
PRINT "Стоимость обложек:"; price2
PRINT "Общая стоимость:"; price1 + price2
END

C#:
Обычный класс, единственная директива препроцессора System, в методе main

int tetradCount, oblojCoubt, priceOne, priceTwo, priceSum;

Console.WriteLine("Введите кол-во тетрадей:");
tetradCount = int.Parse(Console.ReadLine());

Console.WriteLine("Введите кол-во обложек:");
oblojCount = int.Parse(Console.ReadLine());

priceOne = tetradCount * 5;
priceTwo = oblojCount * 3;
priceSum = priceOne + PriceTwo;

Console.WriteLine("Стоимость тетрадей: " + priceOne);
Console.WriteLine("Стоимость обложек: " + priceTwo);
Console.WriteLine("Общая стоимость: " + priceSum);

Строго запрещается:

находиться во время перемены в компьютерном классе без разрешения старшего (преподавателя);
включать без разрешения оборудование; 
трогать разъемы соединительных кабелей и проводов(возможно поражение электрическим током);
прикасаться к питающим проводам и устройствам заземления;
прикасаться к экрану и к тыльной стороне монитора, клавиатуры;
включать и выключать аппаратуру без указания преподавателя;
работать в верхней одежде и влажными руками;
прыгать, бегать (пылить);
класть диски, книги, тетради и другие предметы на монитор и клавиатуру;
устанавливать или копировать программы с дискет, дисков и флеш-носителей на компьютер, предварительно не проверив их антивирусом;
При появлении запаха гари немедленно прекратите работу, выключите аппаратуру и сообщите об этом преподавателю.

Во время работы:

строго выполняйте все указанные выше правила, а также текущие указания преподавателя;
следите за исправностью аппаратуры и немедленно прекращайте работу при появлении необычного звука или самопроизвольного отключения аппаратуры;
легко и быстро нажимайте на клавиши, не допуская резких ударов;
не пользуйтесь клавиатурой и мышью, если не включен компьютер;
работайте на клавиатуре чистыми руками;
никогда не пытайтесь самостоятельно устранить неисправность в работе аппаратуры;
не вставайте со своих рабочих мест, когда в кабинет входят посетители.