Program имя;
Begin
Writeln(' * * * * *'');
Writeln(' * *');
Writeln(' ********');
end.
Http://mypascal.ru/blog/zapis_v_fajl_i_vyvod_iz_fajla_pascal/2013-06-08-6 посмотри , там все разобрано
Ну вот, полное решение твоего задания.
<span>var
a, b, S, : real;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
s := a * b;
write('Площадь прямоугольника -- ', s, ';
end<span>.</span></span>
2. А10= 664(10)=1010011000(2)=1230(8)=298(16)
1. <span>А2 =101110=46
А8 = 621=401
А16 =64C=1612
</span>