var
a, b, sum, index: word;
begin
sum := 0;
read(a,b);
for index := 1 to b do sum += a;
write(sum);
end.
Var
a,b,c,d:integer;
Begin
writeln('Введите цену тетради, карандаша и линейки соответственно');
read(a,b,c);
d:=a+b+c;
if d>200 then writeln('Баланс превышен');
End.
Примеры умозаключения:
1. Эверест - гора, Белуха - гора, значит они Эверест и Белуха - горы.
2. Дима- мужское имя, Сергей - мужское имя, значит Дима и Сергей - мужские имена.
Ну и сложный пример:
3.Одно кодовое слово, не может быть началом второго кодового слова.
Файл - это область хранения данных на диске, которая имеет программу или данные, имеющие имя и хранящие долговременно память