Нач x=345 y=остаток (x; 10) вывод (y) кон

Program z18;  Var a: array [1..1000] of string; i,j,l,min,h:integer; s:string;Begin  write('Введите строку - '); readln(s);  l:=s.Length;  i:= 1;  j:= 1;    while i <= l do  begin    while (s[i] <> ' ') and (i <= l) do    begin      a[j]:=a[j] + s[i];      i:= i + 1;      if (i > l) then break;    end;    j:= j + 1;    i:= i + 1;  end;    i:= 2;  min:=a[1].Length;  while (a[i] <> '') do  begin    l:=a[i].Length;    if (l < min) then h:= i;    i:= i + 1;  end;  writeln(a[h]);End.

Program z19;  Var a: array [1..1000] of string; i,j,l,min:integer; s:string;Begin  write('Введите строку - '); readln(s);  l:=s.Length;  i:= 1;  j:= 1;    while i <= l do  begin    while (s[i] <> ' ') and (i <= l) do    begin      a[j]:=a[j] + s[i];      i:= i + 1;      if (i > l) then break;    end;    j:= j + 1;    i:= i + 1;  end;    i:= 1;  while (a[i] <> '') do  begin    if ((a[i] = 'мое') or (a[i] = 'Мое')) then a[i]:= 'наше';    write(a[i], ' ');    i:= i + 1;  end;End.

1.Отметьте допустимые идентификаторы знаком«+»,а недопустимые знаком «-»
+ 1) RAZMER
+ 2)_Beta
- 3) 5 ABC
+ 4) Y22M

2. Подберите подходящий тип данных:
a) Количество учеников в классе – integer, word, byte
b)Заработанная плата сотрудника фирмы- real, double
c) Фамилия сотрудника фирмы – string

3.Запишите арифметические выражения на языке программирования Паскаль:
a) ac-b+xyz  = a*c-b+x*y*z;
в) a*x^2+b*x+c = a*x*x+b*x+c;
c) (a-b)x+3/y+z = (a-b)*x+3/(y+z);

4) Напишите инструкцию вывода на экран:
а) Вашего имени = write('Ваше имя');
В) Число 400 = write(400);
С) Значение выражения x+y = write(x+y);