Модуль 3 задание 3

Как выглядит структура программы на ЯП Pascal?

Program<Имя программы>;
Label<раздел описания меток>;
Const<раздел описания констант>;
Type<раздел описания типов>;
Var<раздел описания переменных>;
Procedure (Function) <раздел описания подпрограмм>;
Begin<раздел операторов>;
End.

Как записываются операторы присваивания в ЯП Pascal и Basic? Приведите примеры
Паскаль: <переменная>: = <выражение> ( S:=V*t)
Бэйсик: <переменная> = <выражение>   (y=x*3)

Как записываются операторы ветвления в ЯП Pascal и Basic? Приведите примеры.
Паскаль: If условие
   then
      begin
        операторы;
      end
   else
      begin
        операторы;
      end;
Бэйсик: Dim number As Integer = 8
Select Case number
    Case 1 To 5
        Debug.WriteLine("Between 1 and 5, inclusive")
        ' The following is the only Case clause that evaluates to True.
    Case 6, 7, 8
        Debug.WriteLine("Between 6 and 8, inclusive")
    Case 9 To 10
        Debug.WriteLine("Equal to 9 or 10")
    Case Else
        Debug.WriteLine("Not between 1 and 10, inclusive")
End Select

Приведите примеры записи операторов ввода и вывода ЯП Pascal и Basic
Паскаль:
var rA, rB: Real;
   iP,iQ:Integer;
   bR, bS: Boolean;
   chT, chV, chU, chW: Char;
begin
  . . .
  WriteLn(rA, rB:10:2);
  WriteLn(iP, iQ:8);
  WriteLn(bR, bS:8);
  WriteLn(chT, chV, chU, chW);
end.
Бэйсик:
'(General)(Declaration)

Type Person
FirstName As String * 20
Name As String * 20
CustomerN As Integer
End Type

Private Customer As Person
'Процедура
Private Sub Command1_Click()
intFH = FreeFile
Open "C:\LORE.DAT" For Random As intFH Len = Len(Customer)
Get #intFH, 2, Customer
Close #intFH
End Sub

Приведите примеры записи любого цикла на ЯП Pascal.
Readln(n);
i:=0;
y:=0;
Repeat
i:=i+1;
y:=y+1/i;
Until i>n;

Приведите пример записи цикла с параметром на ЯП Basic

Например необходимо подсчитать целое кол-во отрезков длиной 1,5 м получающихся из бруска длиной 20 м, цикл подсчета будет выглялить следующим образом:
i=0 rem кол-во отрезков
L=0 rem суммарная длина отрезков
10:
 L=L+1.5
 i=i+1
if L<20 then goto 10
print "количество отрезков ";i