Впаскале решите : хозяин хочет оклеить обоями длинную стену в своем доме. длина этой стены равна а метров, а высота - в метров. рулон обоев имеет длину 12 метров и ширину k см. составьте алгоритм и программу, которая определит стоимость обоев для всей стены, если цена одного рулона к руб. мне нужно

Var k,a,b,m,v:real;
begin;
readln(a); //ввод значений
readln(b);
readln(k);
m:=k;     //сохраняем значение цены
k:=k*100;  //так как в по условию вводятся сантиметры
a:=a/12; //делим ширину на ширину рулона, получаем кол-во рулонов
b:=b/k;  //делим высоту на высоту рулона, получаем кол-во рулонов
if a>=b then //чтобы точно хватило на всё
  begin;
    v:=m*a; //финальная стоимость=цена на 1 рулон*рулоны
    writeln(v);
  end
else
  begin;
    v:=m*b; //аналогично
    writeln(v);
  end;
end.

#Python 3.X

x, y = [float(x) for x in input('Точка (Х и У, разделяя пробелами): ').split()]
if x == 0 and y != 0:
    print('Ось У, между', end=' ')
    if y > 0:
        print('I и IV', end=' ')
    else:
        print('II и III', end=' ')
    print('четвертями')
elif y == 0 and x != 0:
    print('Ось Х, между', end=' ')
    if x > 0:
        print('I и II', end=' ')
    else:
        print('III и IV', end=' ')
    print('четвертями')
elif x > 0 and y > 0:
    print('I')
elif x > 0 and y < 0:
    print('II')
elif x < 0 and y < 0:
    print('III')
elif x < 0 and y > 0:
    print('IV')
else:
    print('Начало координат (0, 0)')

Var 
a, b, s:Integer; 
tab: array [1..15] of Integer; 

begin 
randomize; 
for a := 1 to 15 do 
begin 
tab[a] := random(-15, 15); 
writeln(a, ' - элемент = ', tab[a]); 
end; 
b := tab[1]; s:=0;
for a := 1 to 15 do 
begin 
if tab [a] > b then b := tab[a]; 
s:=s+tab[a];
end; 
writeln('наибольший элемент массива = ', b); 
writeln('s = ',s);
end.

Пример:
1 - элемент = 15
2 - элемент = -10
3 - элемент = 5
4 - элемент = -6
5 - элемент = -14
6 - элемент = -1
7 - элемент = 9
8 - элемент = -7
9 - элемент = 1
10 - элемент = 15
11 - элемент = -4
12 - элемент = -5
13 - элемент = -6
14 - элемент = 7
15 - элемент = 10
наибольший элемент массива = 15
s = 9