Нужно решить две задачи в паскаль Вот это шаблон кода:
program zadacha;
var x, y, t1, t2, t3, s, t:real;
begin
write ('Ведіть кілкість курочок: ');
readln(x);
write ('Ведіть кілкість півників: ');
readln(y);
write ('Ведіть кілкість хвилин витрачених на курочку: ');
readln(t1);
write ('Ведіть кілкість хвилин витрачених на півника: ');
readln(t2);
t3:=t1/60;
t:=x*t3+y*t2;
s:=x+y;
writeln('Кілкість утікачів ', s:0:0);
writeln('Кілкість годин ', t:0:0);
end.
begin
readln(t);
readln(k);
for j := 0 to 1 do begin
if (j = 1) then writeln();
for i := 0 to 9 do begin
if(j = 0) then begin
mas1[i] := random(100);
write(mas1[i], ' ');
if mas1[i] > t Then mas1[i] := mas1[i] + 4;
end
else
begin
mas2[i] := random(100);
write(mas2[i], ' ');
if mas2[i] > 10 * K Then
mas2[i] := mas2[i] + K;
end;
end;
for i := 0 to 9 do
if (j = 0) then
write(mas1[i])
else
write(mas2[i]);
writeln();
end;
readln();
end.
))