// PascalABC.NET 3.0, сборка 1073
var
i,n,p:integer;
k:array[1..6] of integer;
begin
Randomize;
Write('Количество бросков кубика: '); Read(n);
for i:=1 to 6 do k[i]:=0;
for i:=1 to n do begin
p:=Random(6)+1;
k[p]:=k[p]+1
end;
Writeln('Результат бросания кубика');
for i:=1 to 6 do Writeln(i,k[i]:6)
end.
<u><em>Тестовое решение:</em></u>
Количество бросков кубика: 10000
Результат бросания кубика
1 1704
2 1665
3 1659
4 1631
5 1663
6 1678
var
V: Real;
begin
Write ('Введите сумму вклада: ');
Readln (V);
if V = 200000 then
WriteLn ('Процент дохода равен 13.5% в год')
else if V >= 350000 then
WriteLn ('Процент дохода равен 14.2% в год')
else
WriteLn ('Процент дохода в год не определен');
end;
// ну вот как-то так... Все, что меньше 200000 или находится между 200000.01 и 349999.99 идет на третью ветку с сообщение о неопределенном проценте. Это если тупо делать по условию задания.
Program asd;
var g,o:integer;
begin
Writeln ('Введите ваш возраст');
readln (g);
Writeln ('Ваш опыт работы');
readln (o);
if (g>20) and (g<40) and (o>5)
then writeln ('принят')
else writeln ('нет');
end.