тем кто знает паскаль))

привет всем.....люди кто то помогите на паскале 2 проги написать....задание лёгкое но я сделать немогу)....уже тупо не помню этот язык

первое задание даны два целыъ числа k и n (n>0) вывести n раз число k

второе задание даны два целых положительных числа n и k используя операции сложения и вычитания найти частное от деления целого n на k а так же остаток от деления

Зарание спасибо)
п.с мега язык

Точно не помню, давно им не занимался, но примерно так(могут быть ошибки в синтаксисе=)):
По первому:

Перепишете на паскаль (не набивал)
первая:

#include <stdio.h>
#include <conio.h>
int main()
{
int k = 7; //например
int n = 5; //например
long double noll = 0.00000000;
int iterat;
if( n > noll )
{
for(iterat = 0; iterat < n; n ++ )
printf("%d - %d ",iterat, k);
}
else
perror("N < 0 !!!");
getch();
return 0;
}

По поводу второго задания, ответ будет тоже целое, k и n по заданию не float или double, не парсил.

#include <stdio.h>
#include <conio.h>
int main()
{
int k = 7; //например
int n = 25; //например
int sch = 0;
for(;;)
{
if(n <= k)
{
printf("chastnoe ot del = %d\nostatok = %d\n", sch, n);
getch();
break;
}
n = n - k;
sch ++;
return 0;
}

Задание 1.

program n;
uses crt;
var i:integer;
begin
k:=1; {какое число выводить}
n:=10; {тут ставим сколько выводить}
for i:=1 to n do
begin
writeln(k);
end;
readln;
end;

Извините чуть чуть не так вот поправленный вариант =)

program n;
uses crt;
var i,n,k:integer;
begin
k:=1; {какое число выводить}
n:=10; {тут ставим сколько выводить}
for i:=1 to n do
begin
writeln(k);
end;
readln;
end;

Program 1;
var n,k:integer;
begin
Writeln('vvedite 4ucJIo k');
readln(k)
Writeln('vvedite 4ucJIo n');
readln(n)
for i:=1 to 10 do begin
writeln(k);
end;
end.

Jugit, составлено не правильно. Оно будет выводить 10 раз число k, а не n раз. Да и думаю уже неактуально

Задание 1: