Собака
Порода, цвет шерсти, срок жизни
Составные: крылья, двигатель,кабина
действия: летают, могут перевозить различные грузы
Var
i:integer;
s:string;
begin
readln(s);
for i:=1 to length(s) do
write(s[length(s)-i]);
end.
Program Program1;
var Name: string;
var Cost: real;
begin
write('Введите название товара: ');
readln(Name);
write('Введите цену товара: ');
readln(Cost);
writeln('Ваши расходы на покупки равны', Cost, ' руб.');
end.
=============================
program Program2;
var a, b, c, sum: integer;
var average: real;
begin
writeln('Введите три числа:');
readln(a, b, c);
average := (a + b + c) / 3;
writeln('Их среднее равно ', average);
sum := a + b + c;
writeln('Их сумма равна ', sum);
end.