Прокомментируйте каждую строку программы: var {секция описания переменных} number, num1, num2, sum: integer; begin{начало программы} write('введите двухзначное число: '); read(number); num1 : = number div 10; num2 : = number mod 10; sum : = num1 + num2; write('сумма двух чисел — ', sum); end. {конец программы}

var {секция описания переменных}
Number,Num1,Num2,Sum: integer;
begin{начало программы}
write('Введите двухзначное число: ');//Вывод строки на экран
read(Number); //переменная Number получает значение с клавиатуры
Num1 := Number div 10; //В Num1 целая часть от деления Number на 10
Num2 := Number mod 10; //В Num2 остаток от деления Number на 10
Sum := Num1 + Num2; //находим сумму Num1 и Num2
write('Сумма двух чисел — ',Sum);//вывод результата на экран
end. {конец программы}

Program fgg;

var
x: String[10];
t, v, s: Real;

begin
Write('Что будем искать?: ');
ReadLn(x);
if x = 'скорость' then
begin
Write('Введите расстояние: ');
ReadLn(s);
Write('Введите время: ');
ReadLn(t);
WriteLn('Скорость=', s / t);
end
else if x = 'время' then
begin
Write('Введите расстояние: ');
ReadLn(s);
Write('Введите скорость: ');
ReadLn(v);
WriteLn('Время=', s / v);
end
else if x = 'расстояние' then
begin
Write('Введите скорость: ');
ReadLn(v);
Write('Введите время: ');
ReadLn(t);
WriteLn('Расстояние=', v * t);
end
else
WriteLn('Неверно указано, что будем искать.');
end.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var c1:=ReadReal('Цена первой покупки:');
  var c2:=ReadReal('Цена второй покупки:');
  var c3:=ReadReal('Цена третьей покупки:');
  var s:=c1+c2+c3; Writeln('Сумма к оплате: ',s);
  var p:=ReadReal('Внесена сумма:');
  Writeln('Причитается сдача: ',p-s)
end.

Пример
Цена первой покупки: 152.40
Цена второй покупки: 375
Цена третьей покупки: 140.62
Сумма к оплате: 668.02
Внесена сумма: 700
Причитается сдача: 31.98