Найти площадь кольца по заданным внешнему r1 и внутреннему r2.учесть возможность r1

S - площадь кольца
Взято число Пи, равное 3,14.
Язык программирования: Паскаль

var
S, r1, r2 : real;
begin
readln (r1);
readln (r2); 
S := 3.14 * (SQR(r1) - SQR(r2));;
writeln (S);
end.

! Это змея. ! Это пчела. Тс! Это она. Удар! Это я.
Как-то так.

. Это змея. это она. Удар! Это я.

//название
var n: integer;
begin
repeat
n:=readinteger('Введите порядковый номер: ');
until n in [1..52];

case (n mod 13) of 
1: write ('Двойка');
2: write ('Тройка');
3: write ('Четверка');
4: write ('Пятерка');
5: write ('Шестерка');
6: write ('Семерка');
7: write ('Восьмерка');
8: write ('Девятка');
9: write ('Десятка');
10: write ('Валет');
11: write ('Дама');
12: write ('Король');
0: write ('Туз');
end;
if n mod 13<>0 then n:=(n div 13) + 1 else n:=n div 13;

case n of
1: write (' бубен');
2: write (' черви');
3: write (' трефы');
4: write (' пики');
end;

end.

1. Русский язык стал гигантской сокровищницей всех областей человеческих знаний.
2. Словарный состав его стремительно увеличивается.
3. В семнадцати томном академическом "Словаре современного русского литературного языка" описано свыше ста двадцати тысяч общеупотребительных слов, и сотни тысяч значений, и оттенков значений.
4. А кроме общеупотребительных слов, существует специальная терминология, количество которых учесть невозможно.
5. Научно-технических и производственных терминов, номенклатурных наименований и прочих специальных обозначений в современном русском языке миллионы.

#include <iostream>

int main() {

const int SIZE = 10;

int arr[SIZE] = {-10, 4, 8, 9, 10, 14, 4, 5, 8, 20}; // создаем массив на 10 элементов

int temp;

if ((arr[0] < 0) && (arr[SIZE - 1] > 0))

{

 temp = arr[SIZE - 1];

 arr[SIZE - 1] = arr[0];

 arr[0] = temp;

}

else

 std::cout << "Массив не соответствует условиям задачи" << std::endl;

for (int i = 0; i < SIZE; i++)

{

 std::cout << arr[i] << "\t"; // выводим массив для проверки

}

return 0;

}

Если учесть возможность равенства только трех чисел то вот.

Program n1;
var a: integer;
begin
readln(a);
case a of
1..89: writeln('Остроугольный');
90: writeln('Прямоугольный');
91..179: writeln('Тупоугольный');
else writeln('некорректный ввод');
end;
end.

Program time;
uses crt;
var
HH,MM,HP,MP,HR,MR,ost:integer;
begin
write('Vvedite vremya otvravki : ');
read(HH);
read(MM);
writeln;
write('vvedite prodolgitelnost poleta: ');
read(hp);
read(mp);
clrscr;
writeln('Otpravleniye somolyata v ',hh,':',mm);

MR:=mm+mp;
 if mr>59 then
 begin
 ost:=mr mod 60;
 MR:=ost;
 HR:=HR+(MR div 60);
 end;
 
HR:=HH+HP;
if hr>24 then hr:=hr - 24;

Writeln;
Write('Pributie samolyota v ', HR,':',MR);
writeln;

end.

данный можно сразу вводить через пробел...
например 12 10 жмем ентер и вводим другие 14 55 и ентер и все прекрасно посчитает. тут опечатка...не совсем правильно считает... подожди исправлю

Var
  s,sd,sm,sy:string;
  d,m,y,err:integer;
begin
  Write('Введите текущую дату в формате дд/мм/ или дд.мм.: ');
  Readln(s);
  if Length(s)<>10 then Writeln('Неверный ввод')
  else begin
    sd:=s[1]+s[2]; Val(sd,d,err);
    sm:=s[4]+s[5]; Val(sm,m,err);
    sy:=Copy(s,7,4); Val(sy,y,err);
    if err>0 then Writeln('Неверный ввод')
    else begin
      if d<28 then d:=d+1
      else begin
        case m of
        1,3,5,7,8,10,12:
          if d<31 then d:=d+1
          else begin d:=1; m:=m+1 end;
        2:
          if (y mod 4)=0 then
            if d=28 then d:=29
            else begin d:=1; m:=3 end
          else begin d:=1; m:=3 end;
        else
          if d<30 then d:=d+1
          else begin d:=1; m:=m+1 end
        end
      end;
      if m>12 then begin m:=1; y:=y+1 end;
      Str(d,sd); if Length(sd)=1 then sd:='0'+sd;
      Str(m,sm); if Length(sm)=1 then sm:='0'+sm;
      Str(y,sy);
      s:=sd+'.'+sm+'.'+sy;
      Writeln('Завтра будет '+s)
    end
  end
end.