помогите написать 2 легкие программки на паскале, скрины внутри

+ 0 -

Gagamonster

03 июня 2013 г., 5:27:06 (10 лет назад)

первая
r1, u1, r2, u2:integer;
a1, a2:real;
begin
readln(r1, r2, u1, u2);
a1:=u1\r1;
a2:=u2\r2;
if a1<a2 then writeln('a1')
else writeln('a2');
readln;
end.
вторая
s:string;
i, k, n, j:integer;
begin
readln(s);
for i:=1 to length(s) do begin
for j:=1 to length(s) do
if s[i]=s[j] then k:=k+1;end;{ здесь begin может стоять или не стоять. зависит от версии pascal}
if k>4 then writeln('no')
else writeln('yes');
readln;
end.