Помогите, пожалуйста с информатикой!!! 1.Описать следующие переменные по образцу: var...

Помогите, пожалуйста с информатикой!!! 1.Описать следующие переменные по образцу: var i:integer; 1) x1, x2- целочисленные; 2) y1, y2- вещественные; 3) a- строковую; 4) b- логическую; 5) c- символьную. 2. Записать операторы ввода вывода по заданиям: 1) Ввести переменные x1, x2 без перехода курсора на новую строку; 2) Вывести текст "школа №16" с переходом курсора на новую строку; 3) Ввести переменную а с переходом курсора на новую строку; 4) Вывести значение переменной b с пояснением без перехода курсора на новую строку. 3.Записать условный оператор на Паскале; 1)Если x>0, то вывести «положительное» иначе если x<0, то вывести «отрицательное» иначе вывести «=0»; 2)Если а>=10 и a<=99, то вывести «двузначное». 4.Записать цикл на языке Паскаль; 1)Пока а>0 делать а присвоить а-5; 2)Повторять x присвоить x+2 до тех пор, пока x>20; 3)для y от 5 до 10 делать s присвоить s+3. Заранее спасибо!!!

1) var: x1, x2:integer;

y1,y2:real;

a:string;

b:boolean;

c:char;

2) read(x1,x2);

writeln("школа №16");

readln(a);

write(b);

3) 1)

if (x>0) then

writeln("положительное")

else if (x<0) then</p>

writeln("отрицательное")

else

writeln("=0);

3) 2)

if (a >= 10 and a <= 99) then</p>

writeln("двузначное");

4) 1)while (a>0) do

a := a - 5;

4) 2)repeat

x := x + 2;

until x > 20

4) 3) for y:=5 to 10 do

s := s + 3