1)Осуществить ввод числа с клавиатуры. Возвести введенное число в квадрат, в куб, в 4 и 5 степень. Выдать на экран результат.ПАСКАЛЬ ​
2)Известны размеры спичечной коробки: высота — 12.41 см., ширина — 8 см., толщина — 5 см. Вычислить площадь основания коробки и ее объем

3)В углу прямоугольного двора размером 50х30 стоит прямоугольный дом размером 20х10. Подсчитать площадь дома, свободную площадь двора и длину забора. Примечание: в углу, где дом, забора нет.

4)автомобиль ехал 3 часа скоростью 80 км/ч и 2 ч со скоростью 90 км/ч. вычислить среднию скорость авто .

нужно написать код в паскале. нельзя писать другие слова, только те которые у меня, мы другие слова еще не проходили

ниже пример как должна выглядеть работа ( там другая задача, это фото нужно вам для того что бы вы поняли какие слова мы изучили)

Uses crt;
const
    n = 10;

type
    Car = record
        DriverName: string[20];
        Mark: string[20];
        Number: string[6];
        Color: string[20];
    end;

var
    cars: array[1..n] of Car;
    i: integer;

function CarToString(c: Car): string;
begin
    CarToString := c.DriverName + ' ' + c.Mark + ' ' + c.Number + ' ' + c.Color;
end;

procedure WriteToFile(data, file_name: string);
var
    f: text;
begin
    Assign(f, file_name);
    Rewrite(f);
    Write(f, data);
    Close(f);
end;

procedure OpenFileToRead(file_name: string; var f: text);
begin
    Assign(f, file_name);
    Reset(f);
end;

procedure CreateFilesWithData(Drivers, Marks, Numbers, Colors: string);
var
    c: Car;
    s1, s2, s3, s4: string;
    i: integer;
begin
    for i := 1 to n do
    begin
        {c.DriverName := Random(9).ToString;}
        write('Имя водителя = ');
        readln(c.DriverName);
        s1 := s1 + c.DriverName + chr(13);
        
        {c.Mark := Random(9).ToString;}
        write('Марка = ');
        readln(c.Mark);
        s2 := s2 + c.Mark + chr(13);
        
        {c.Number := Random(100, 999).ToString + Random(100, 999).ToString;}
        write('Номер = ');
        readln(c.Number);
        s3 := s3 + c.Number + chr(13);
        
        {c.Color := Random(9).ToString;}
        write('Цвет = ');
        readln(c.Color);
        s4 := s4 + c.Color + chr(13);
    end;   
    
    WriteToFile(s1, Drivers);
    WriteToFile(s2, Marks);
    WriteToFile(s3, Numbers);
    WriteToFile(s4, Colors);
end;

procedure ReadFiles(Drivers, Marks, Numbers, Colors: string);
var
    f1, f2, f3, f4: text;
    i: integer;
begin
    OpenFileToRead(Drivers, f1);
    OpenFileToRead(Marks, f2);
    OpenFileToRead(Numbers, f3);
    OpenFileToRead(Colors, f4);
    
    i := 0;
    while not Eof(f1) do
    begin
        i := i + 1;
        
        ReadLn(f1, cars[i].DriverName);
        ReadLn(f2, cars[i].Mark);
        ReadLn(f3, cars[i].Number);
        ReadLn(f4, cars[i].Color);
        {не учитывается вариант что кол-во строк может быть разным}
    end;
    
    Close(f1);
    Close(f2);
    Close(f3);
    Close(f4);
end;

function Query1(mark, color: string): string;
var
    s: string;
    i: integer;
begin
    for i := 1 to n do    
        if (cars[i].Mark = mark) and (cars[i].Color = color) then
            s := s + cars[i].DriverName + ' ' + cars[i].Number + chr(13);
    
    if s = '' then Query1 := 'Ничего не найдено'
    else Query1 := s;
end;

function Query2(): string;
var
    s: string;
    i: integer;
begin
    for i := 1 to n do    
        if (cars[i].Number[1] = cars[i].Number[Length(cars[i].Number)]) then
            s := s + cars[i].DriverName + ' ' + cars[i].Mark + ' ' + cars[i].Color + chr(13);
    
    if s = '' then Query2 := 'Ничего не найдено'
    else Query2 := s;
end;

var
    mark, color: string;

begin
    CreateFilesWithData('f1.txt', 'f2.txt', 'f3.txt', 'f4.txt');
    ReadFiles('f1.txt', 'f2.txt', 'f3.txt', 'f4.txt');
    for i := 1 to n do
        writeln(CarToString(cars[i]));
    
    Write('Искомая марка = ');readln(mark);
    Write('Искомый цвет = ');readln(color);
    writeln(Query1(mark, color));
    
    writeln('Hомера начинаются и заканчиваются одной буквой');
    writeln(Query2());
end.

Когда мы наблюдаем, читаем, слушаем, мы узнаем что-то новое — получаем информацию.

Информация может быть представлена в разных 
видах: звуковая,текстовая, графическая, числовая.

С информацией можно выполнять следующие операции : хранить, получать, обрабатывать, передавать.

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