В
пиріжки
пиріжок у шкільній їдальні коштує а гривень та копійок. знайдіть скільки гривень та копійок
заплатить петрик за п пиріжків.
вхідні дані: три натуральних числа a, b, n (0) < a,b, n< 100).
вихідні дані: через пропуск два числа: вартість покупки у гривнях та копійках.
вхідні дані
1 25 2
вихідні дані
2 50​

Var
  a: Array[1..30,1..30] of Integer;
 n,min, max, i,j,s: Integer;
BEGIN
writeln('n=');
readln(n);
Randomize;
Writeln('sluciayniy massiv:');
For i:=1 to n do
begin
  For j:=1 to n do  begin 
   a[i,j]:=Random(51)-25;
    Write(a[i,j]:5);
  end; 
 Writeln;
end; 
s:=0; 
min:= a[1,1]; 
max:= a[1,1]; 
for i:= 1 to n do
 for j:= 1 to n do 
if a[i,j]<min then
 min := a[i,j];
 for i:= 1 to n do 
for j:= 1 to n do
 if a[i,j]> max then
 max:= a [i,j];
 for i:=1 to n do
 for j:= 1 to n do
 if i=j then
s:= s+a[i,j]; 
writeln('min=',min, ' max=',max,' summa elementov glavnoi dioganali=',s); 
readln; 
end.



Var
  a: Array[1..100,1..100] of Integer; 
n,min, max, i,j,s:Integer;
BEGIN
writeln('n=');
readln(n);

Writeln('vvedite massiv:');
For i:=1 to n do
begin 
 For j:=1 to n do
begin 
read(a[i,j]); 
end; 
Writeln; 
 end; 
s:=0; 
min:= a[1,1]; 
max:= a[1,1]; 
for i:= 1 to n do 
for j:= 1 to n do 
if a[i,j]<min then min := a[i,j];   {поиск минимального элемента }
 for i:= 1 to n do
 for j:= 1 to n do 
if a[i,j]> max then max:= a [i,j]; {поиск максимального элемента}
for i:=1 to n do 
for j:= 1 to n do 
if i=j then s:= s+a[i,j]; { поиск элементов главной диагонали и нахождение их суммы}
writeln('min=',min, ' max=',max,' summa elementov glavnoi dioganali=',s); 
readln;
end.

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles MyBase.Load
        Dim s(9) As String
        Dim b As Boolean
        TextBox1.Multiline = True
        TextBox1.Height = 100
        For i = 1 To 9
            s(i) = InputBox("Введите элемент " & i)
            If s(i) = "0" Then b = True
        Next
        For i = 1 To 9
            If b Then s(i) = "7"
        Next
        For i = 1 To 9
            TextBox1.Text = TextBox1.Text & s(i) & Chr(32)
            If i = 3 Or i = 6 Then _
                TextBox1.Text = TextBox1.Text & vbCrLf
        Next
    End Sub
End Class

работает в Visual Studio 2010 (не думаю, что вы в VB6 пишите)
перед запуском, киньте на форму TextBox