ANTICHAT — форум по информационной безопасности, OSINT и технологиям

program Week;
var U, R : integer;
label ukr, rus;
begin
   writeln('Виберіть мову/Выберите язык: U - українська; R - русский');
    read(U,R);
    UKR:function UKR (var x : integer);
    begin
     writeln('Введіть число [день тижня]:');
    read(x);
    write('День - ');
     case x of
    1:Write ('Понеділок, ');
    2:Write ('Вівторок, ');
    3:Write ('Середа, ');
    4:Write ('Четвер, ');
    5:Write ('Пятниця, ');
    6:Write ('Субота, ');
    7:Write ('Неділя, ');
   else writeln('не вибраний! В тижні сім днів! Вибиріть число від 1 до 7!');
  end;
     case x of
    1:Write ('перший день робочого тижня!');
    2:Write ('другий');
    3:Write ('третій');
    4:Write ('четветрий');
    5:Write ('п''''ятий');
    6:Write ('шостий');
    7:Write ('сьомий');
  end;
    if x=1 then writeln(' день робочого тижня! ');
    if x=2 then writeln(' день робочого тижня! ');
    if x=3 then writeln(' день робочого тижня! ');
    if x=4 then writeln(' день робочого тижня! ');
    if x=5 then writeln(' день робочого тижня! ');
    if x=6 then writeln(' день робочого тижня! ');
    if x=7 then writeln(' день робочого тижня! ');

   writeln('Кротка замітка:');
    if x=1 then writeln('опис');
    if x=2 then writeln('опис');
    if x=3 then writeln('опис');
    if x=4 then writeln('опис');
    if x=5 then writeln('опис');
    if x=6 then writeln('опис');
    if x=7 then writeln('опис');
  end;
    RUS:function RUS (var x : integer);
    begin
    writeln('Введите число [день недели]:');
    read(x);
    write('День - ');
     case x of
    1:Write ('Понедельник, ');
    2:Write ('Вторник, ');
    3:Write ('Среда, ');
    4:Write ('Четверг, ');
    5:Write ('Пятница, ');
    6:Write ('Суббота, ');
    7:Write ('Воскресенье, ');
   else writeln('не выбран! В неделе семь дней! Выберите число от 1 до 7!');
  end;
     case x of
    1:Write ('первый');
    2:Write ('второй');
    3:Write ('третий');
    4:Write ('четвертый');
    5:Write ('пятый');
    6:Write ('шестой');
    7:Write ('седьмой');
  end;
    if x=1 then writeln(' день недели! ');
    if x=2 then writeln(' день недели! ');
    if x=3 then writeln(' день недели! ');
    if x=4 then writeln(' день недели! ');
    if x=5 then writeln(' день недели! ');
    if x=6 then writeln(' день недели! ');
    if x=7 then writeln(' день недели! ');

   writeln('Заметка:');
    if x=1 then writeln('Понедельник....описание');
    if x=2 then writeln('Вторник........описание');
    if x=3 then writeln('Среда..........описание');
    if x=4 then writeln('Четверг........описание');
    if x=5 then writeln('Пятница........описание');
    if x=6 then writeln('Суббота........описание');
    if x=7 then writeln('Воскресенье....описание');
 end;
    if read(U) then goto ukr else writeln(Error);
    if read(R) then goto rus else writeln(Error);
end.

var button:TButton;
begin
 button:=TButton.Create(self);
 with button do begin
  Top:=50;
  Left:=50;
  Visible:=true;
  Parent:=Form1;
  Caption:='button';
  Height:=70;
  Width:=70;
 end;
end;