Составить и записать программу: вычисляющу по 2ум значения сторон прямоугольника его площадь и периметр (результат программы

НЕ(Х<6)И(Х<7)?

y:=400;

x:=20;

Writeln('Введите координату точки Y0');

Readln(Y0);_________________________________________________________

Moveto(x0,y0);______________________________________________________

while x<610 Do

Begin

line(x0,y0,x,y);______________________________________________________

x:=x+10;___________________________________________________________

End;

End.

Укажите тип цикла используемое в программе _________________

y:=1;
For i:=2 to 4 do y:=y+i;

2.Определить значение переменной у после выполнения следующего фрагмента программы:
y:=0;
For i:=-100 to 100 do
If i mod 10 =5 then y:=y+i;

3. На промежутке [a;b] (a,b -целые числа, которые вводятся с клавиатуры) определить среднее арифметическое чисел кратных 7

ЖЕЛАТЕЛЬНО С ИСПОЛЬЗОВАНИЕМ СТРУКТУРЫ CASE OF

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

не превышает 30 000. Программа должна напечатать только число, равное значению меньшей из его первой и последней цифр. Если число состоит из одной цифры, то минимальным является значение самой этой цифры.
Примеры работы программы:
Ввод: 3; Вывод:3
Ввод: 2194; Вывод: 2

5-отлично).